...
|
...
|
@@ -69,10 +69,22 @@ sub clone {
|
69
|
69
|
|
70
|
70
|
# Attribute
|
71
|
71
|
sub connect_info : Attr { type => 'hash', auto_build => sub { shift->connect_info({}) } }
|
|
72
|
+
|
72
|
73
|
sub global_bind_rules : Attr { type => 'array', auto_build => sub { shift->global_bind_rules([]) } }
|
|
74
|
+sub add_global_bind_rule { shift->global_bind_rules(@_) }
|
|
75
|
+
|
73
|
76
|
sub global_fetch_rules : Attr { type => 'array', auto_build => sub { shift->global_fetch_rules([]) } }
|
74
|
|
-sub bind_rules : Attr { type => 'hash', auto_build => sub { shift->bind_rules({}) }
|
75
|
|
-sub fetch_rules : Attr { type => 'hash', auto_build => sub { shift->fetch_rules({}) }
|
|
77
|
+sub add_global_fetch_rules { shift->global_fetch_rules(@_) }
|
|
78
|
+
|
|
79
|
+sub bind_rules : Attr { type => 'hash', auto_build => sub { shift->bind_rules({}) }
|
|
80
|
+sub add_bind_rule { shift->bind_rules(@_) }
|
|
81
|
+
|
|
82
|
+sub fetch_rules : Attr { type => 'hash', auto_build => sub { shift->fetch_rules({}) }
|
|
83
|
+sub add_fetch_rule { shift->fetch_rules(@_) }
|
|
84
|
+
|
|
85
|
+sub filters : Attr { type => 'hash', deref => 1, default => sub { {} } }
|
|
86
|
+sub add_filter { shift->filters(@_) }
|
|
87
|
+
|
76
|
88
|
|
77
|
89
|
sub dbh : Attr { auto_build => sub { shift->connect } }
|
78
|
90
|
sub sql_abstract : Attr { auto_build => sub { shift->sql_abstract(SQL::Abstract->new) }}
|