Do
33 results

 view release on metacpan or  search on metacpan

lib/Data/Object/ClassHas.pm  view on Meta::CPAN 

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
  no warnings 'redefine';
 
  *{"${target}::has"} = _generate_has([$class, $target], $has);
 
  return;
}
 
sub _generate_has {
  my ($info, $orig) = @_;
 
  return sub { @_ = _formulate_opts($info, @_); goto $orig; };
}
 
sub _formulate_opts {
  my ($info, $name, %opts) = @_;
 
  # name-only support
  %opts = (is => 'ro', isa => 'Any') unless %opts;
 
  %opts = (%opts, _formulate_new($info, $name, %opts)) if $opts{new};
  %opts = (%opts, _formulate_bld($info, $name, %opts)) if $opts{bld};
  %opts = (%opts, _formulate_clr($info, $name, %opts)) if $opts{clr};
  %opts = (%opts, _formulate_crc($info, $name, %opts)) if $opts{crc};
  %opts = (%opts, _formulate_def($info, $name, %opts)) if $opts{def};
  %opts = (%opts, _formulate_hnd($info, $name, %opts)) if $opts{hnd};
  %opts = (%opts, _formulate_isa($info, $name, %opts)) if $opts{isa};
  %opts = (%opts, _formulate_lzy($info, $name, %opts)) if $opts{lzy};
  %opts = (%opts, _formulate_opt($info, $name, %opts)) if $opts{opt};
  %opts = (%opts, _formulate_pre($info, $name, %opts)) if $opts{pre};
  %opts = (%opts, _formulate_rdr($info, $name, %opts)) if $opts{rdr};
  %opts = (%opts, _formulate_req($info, $name, %opts)) if $opts{req};
  %opts = (%opts, _formulate_tgr($info, $name, %opts)) if $opts{tgr};
  %opts = (%opts, _formulate_use($info, $name, %opts)) if $opts{use};
  %opts = (%opts, _formulate_wkr($info, $name, %opts)) if $opts{wkr};
  %opts = (%opts, _formulate_wrt($info, $name, %opts)) if $opts{wrt};
 
  $name = "+$name" if $opts{mod} || $opts{modify};
 
  return ($name, %opts);
}
 
sub _formulate_new {
  my ($info, $name, %opts) = @_;
 
  if (delete $opts{new}) {
    $opts{builder} = "new_${name}";
    $opts{lazy} = 1;
  }
 
  return (%opts);
}
 
sub _formulate_bld {
  my ($info, $name, %opts) = @_;
 
  $opts{builder} = delete $opts{bld};
 
  return (%opts);
}
 
sub _formulate_clr {
  my ($info, $name, %opts) = @_;
 
  $opts{clearer} = delete $opts{clr};
 
  return (%opts);
}
 
sub _formulate_crc {
  my ($info, $name, %opts) = @_;
 
  $opts{coerce} = delete $opts{crc};
 
  return (%opts);
}
 
sub _formulate_def {
  my ($info, $name, %opts) = @_;
 
  $opts{default} = delete $opts{def};
 
  return (%opts);
}
 
sub _formulate_hnd {
  my ($info, $name, %opts) = @_;
 
  $opts{handles} = delete $opts{hnd};
 
  return (%opts);
}
 
sub _formulate_isa {
  my ($info, $name, %opts) = @_;
 
  return (%opts) if ref($opts{isa});
 
  $opts{isa} = Data::Object::Utility::Reify($info->[1], $opts{isa});
 
  return (%opts);
}
 
sub _formulate_lzy {
  my ($info, $name, %opts) = @_;
 
  $opts{lazy} = delete $opts{lzy};
 
  return (%opts);
}
 
sub _formulate_opt {
  my ($info, $name, %opts) = @_;
 
  delete $opts{opt};
 
  $opts{required} = 0;
 
  return (%opts);
}
 
sub _formulate_pre {
  my ($info, $name, %opts) = @_;
 
  $opts{predicate} = delete $opts{pre};
 
  return (%opts);
}
 
sub _formulate_rdr {
  my ($info, $name, %opts) = @_;
 
  $opts{reader} = delete $opts{rdr};
 
  return (%opts);
}
 
sub _formulate_req {
  my ($info, $name, %opts) = @_;
 
  delete $opts{req};
 
  $opts{required} = 1;
 
  return (%opts);
}
 
sub _formulate_tgr {
  my ($info, $name, %opts) = @_;
 
  $opts{trigger} = delete $opts{tgr};
 
  return (%opts);
}
 
sub _formulate_use {
  my ($info, $name, %opts) = @_;
 
  if (my $use = delete $opts{use}) {
    $opts{builder} = _formulate_use_builder($info, $name, @$use);
    $opts{lazy} = 1;
  }
 
  return (%opts);
}
 
sub _formulate_use_builder {
  my ($info, $name, $sub, @args) = @_;
 
  return sub {
    my ($self) = @_;
 
    @_ = ($self, @args);
 
    my $point = $self->can($sub) or do {
      require Carp;
      my $class = $info->[1];
      Carp::croak("has '$name' cannot 'use' method '$sub' via package '$class'");
    };
 
    goto $point;
  }
}
 
sub _formulate_wkr {
  my ($info, $name, %opts) = @_;
 
  $opts{weak_ref} = delete $opts{wkr};
 
  return (%opts);
}
 
sub _formulate_wrt {
  my ($info, $name, %opts) = @_;
 
  $opts{writer} = delete $opts{wrt};
 
  return (%opts);
}
 
# METHODS
 
1;

lib/Data/Object/RoleHas.pm  view on Meta::CPAN 

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
  no warnings 'redefine';
 
  *{"${target}::has"} = _generate_has([$class, $target], $has);
 
  return;
}
 
sub _generate_has {
  my ($info, $orig) = @_;
 
  return sub { @_ = _formulate_opts($info, @_); goto $orig; };
}
 
sub _formulate_opts {
  my ($info, $name, %opts) = @_;
 
  # name-only support
  %opts = (is => 'ro', isa => 'Any') unless %opts;
 
  %opts = (%opts, _formulate_new($info, $name, %opts)) if $opts{new};
  %opts = (%opts, _formulate_bld($info, $name, %opts)) if $opts{bld};
  %opts = (%opts, _formulate_clr($info, $name, %opts)) if $opts{clr};
  %opts = (%opts, _formulate_crc($info, $name, %opts)) if $opts{crc};
  %opts = (%opts, _formulate_def($info, $name, %opts)) if $opts{def};
  %opts = (%opts, _formulate_hld($info, $name, %opts)) if $opts{hld};
  %opts = (%opts, _formulate_isa($info, $name, %opts)) if $opts{isa};
  %opts = (%opts, _formulate_lzy($info, $name, %opts)) if $opts{lzy};
  %opts = (%opts, _formulate_opt($info, $name, %opts)) if $opts{opt};
  %opts = (%opts, _formulate_pre($info, $name, %opts)) if $opts{pre};
  %opts = (%opts, _formulate_rdr($info, $name, %opts)) if $opts{rdr};
  %opts = (%opts, _formulate_req($info, $name, %opts)) if $opts{req};
  %opts = (%opts, _formulate_tgr($info, $name, %opts)) if $opts{tgr};
  %opts = (%opts, _formulate_use($info, $name, %opts)) if $opts{use};
  %opts = (%opts, _formulate_wkr($info, $name, %opts)) if $opts{wkr};
  %opts = (%opts, _formulate_wrt($info, $name, %opts)) if $opts{wrt};
 
  $name = "+$name" if $opts{mod} || $opts{modify};
 
  return ($name, %opts);
}
 
sub _formulate_new {
  my ($info, $name, %opts) = @_;
 
  if (delete $opts{new}) {
    $opts{builder} = "new_${name}";
    $opts{lazy} = 1;
  }
 
  return (%opts);
}
 
sub _formulate_bld {
  my ($info, $name, %opts) = @_;
 
  $opts{builder} = delete $opts{bld};
 
  return (%opts);
}
 
sub _formulate_clr {
  my ($info, $name, %opts) = @_;
 
  $opts{clearer} = delete $opts{clr};
 
  return (%opts);
}
 
sub _formulate_crc {
  my ($info, $name, %opts) = @_;
 
  $opts{coerce} = delete $opts{crc};
 
  return (%opts);
}
 
sub _formulate_def {
  my ($info, $name, %opts) = @_;
 
  $opts{default} = delete $opts{def};
 
  return (%opts);
}
 
sub _formulate_hld {
  my ($info, $name, %opts) = @_;
 
  $opts{handles} = delete $opts{hld};
 
  return (%opts);
}
 
sub _formulate_isa {
  my ($info, $name, %opts) = @_;
 
  return (%opts) if ref($opts{isa});
 
  $opts{isa} = Data::Object::Utility::Reify($info->[1], $opts{isa});
 
  return (%opts);
}
 
sub _formulate_lzy {
  my ($info, $name, %opts) = @_;
 
  $opts{lazy} = delete $opts{lzy};
 
  return (%opts);
}
 
sub _formulate_opt {
  my ($info, $name, %opts) = @_;
 
  delete $opts{opt};
 
  $opts{required} = 0;
 
  return (%opts);
}
 
sub _formulate_pre {
  my ($info, $name, %opts) = @_;
 
  $opts{predicate} = delete $opts{pre};
 
  return (%opts);
}
 
sub _formulate_rdr {
  my ($info, $name, %opts) = @_;
 
  $opts{reader} = delete $opts{rdr};
 
  return (%opts);
}
 
sub _formulate_req {
  my ($info, $name, %opts) = @_;
 
  delete $opts{req};
 
  $opts{required} = 1;
 
  return (%opts);
}
 
sub _formulate_tgr {
  my ($info, $name, %opts) = @_;
 
  $opts{trigger} = delete $opts{tgr};
 
  return (%opts);
}
 
sub _formulate_use {
  my ($info, $name, %opts) = @_;
 
  if (my $use = delete $opts{use}) {
    $opts{builder} = _formulate_use_builder($info, $name, @$use);
    $opts{lazy} = 1;
  }
 
  return (%opts);
}
 
sub _formulate_use_builder {
  my ($info, $name, $sub, @args) = @_;
 
  return sub {
    my ($self) = @_;
 
    @_ = ($self, @args);
 
    my $point = $self->can($sub) or do {
      require Carp;
      my $class = $info->[1];
      Carp::croak("has '$name' cannot 'use' method '$sub' via package '$class'");
    };
 
    goto $point;
  }
}
 
sub _formulate_wkr {
  my ($info, $name, %opts) = @_;
 
  $opts{weak_ref} = delete $opts{wkr};
 
  return (%opts);
}
 
sub _formulate_wrt {
  my ($info, $name, %opts) = @_;
 
  $opts{writer} = delete $opts{wrt};
 
  return (%opts);
}
 
1;
 
=encoding utf8

t/0.90/can/Data_Object_ClassHas__formulate_bld.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_bld
 
=usage
 
  my $_formulate_bld = $self->_formulate_bld();
 
=description
 
The _formulate_bld function returns settings for the build directive.
 
=signature
 
_formulate_bld(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_bld';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_clr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_clr
 
=usage
 
  my $_formulate_clr = $self->_formulate_clr();
 
=description
 
The _formulate_clr function returns settings for the clearer directive.
 
=signature
 
_formulate_clr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_clr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_crc.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_crc
 
=usage
 
  my $_formulate_crc = $self->_formulate_crc();
 
=description
 
The _formulate_crc function returns settings for the coerce directive.
 
=signature
 
_formulate_crc(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_crc';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_def.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_def
 
=usage
 
  my $_formulate_def = $self->_formulate_def();
 
=description
 
The _formulate_def function returns settings for the default directive.
 
=signature
 
_formulate_def(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_def';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_hnd.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_hnd
 
=usage
 
  my $_formulate_hnd = $self->_formulate_hnd();
 
=description
 
The _formulate_hnd function returns settings for the handler directive.
 
=signature
 
_formulate_hnd(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_hnd';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_isa.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_isa
 
=usage
 
  my $_formulate_isa = $self->_formulate_isa();
 
=description
 
The _formulate_isa function returns settings for the isa directive.
 
=signature
 
_formulate_isa(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_isa';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_lzy.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_lzy
 
=usage
 
  my $_formulate_lzy = $self->_formulate_lzy();
 
=description
 
The _formulate_lzy function returns settings for the lazy directive.
 
=signature
 
_formulate_lzy(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_lzy';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_opt.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_opt
 
=usage
 
  my $_formulate_opt = $self->_formulate_opt();
 
=description
 
The _formulate_opt function returns settings for the required directive.
 
=signature
 
_formulate_opt(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_opt';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_opts.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_opts
 
=usage
 
  my $_formulate_opts = $self->_formulate_opts();
 
=description
 
The _formulate_opts function returns settings for the required directive.
 
=signature
 
_formulate_opt(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_opts';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_pre.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_pre
 
=usage
 
  my $_formulate_pre = $self->_formulate_pre();
 
=description
 
The _formulate_pre function returns settings for the predicate directive.
 
=signature
 
_formulate_pre(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_pre';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_rdr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_rdr
 
=usage
 
  my $_formulate_rdr = $self->_formulate_rdr();
 
=description
 
The _formulate_rdr function returns settings for the reader directive.
 
=signature
 
_formulate_rdr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_rdr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_req.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_req
 
=usage
 
  my $_formulate_req = $self->_formulate_req();
 
=description
 
The _formulate_req function returns settings for the required directive.
 
=signature
 
_formulate_req(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_req';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_tgr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_tgr
 
=usage
 
  my $_formulate_tgr = $self->_formulate_tgr();
 
=description
 
The _formulate_tgr function returns settings for the trigger directive.
 
=signature
 
_formulate_tgr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_tgr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_wkr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_wkr
 
=usage
 
  my $_formulate_wkr = $self->_formulate_wkr();
 
=description
 
The _formulate_wkr function returns settings for the weak_ref directive.
 
=signature
 
_formulate_wkr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_wkr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_ClassHas__formulate_wrt.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_wrt
 
=usage
 
  my $_formulate_wrt = $self->_formulate_wrt();
 
=description
 
The _formulate_wrt function returns settings for the writer directive.
 
=signature
 
_formulate_wrt(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::ClassHas';
 
my $data = 'Data::Object::ClassHas';
 
can_ok $data, '_formulate_wrt';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_bld.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_bld
 
=usage
 
  my $_formulate_bld = $self->_formulate_bld();
 
=description
 
The _formulate_bld function returns settings for the build directive.
 
=signature
 
_formulate_bld(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_bld';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_clr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_clr
 
=usage
 
  my $_formulate_clr = $self->_formulate_clr();
 
=description
 
The _formulate_clr function returns settings for the clearer directive.
 
=signature
 
_formulate_clr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_clr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_crc.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_crc
 
=usage
 
  my $_formulate_crc = $self->_formulate_crc();
 
=description
 
The _formulate_crc function returns settings for the coerce directive.
 
=signature
 
_formulate_crc(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_crc';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_def.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_def
 
=usage
 
  my $_formulate_def = $self->_formulate_def();
 
=description
 
The _formulate_def function returns settings for the default directive.
 
=signature
 
_formulate_def(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_def';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_hld.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_hld
 
=usage
 
  my $_formulate_hld = $self->_formulate_hld();
 
=description
 
The _formulate_hld function returns settings for the handler directive.
 
=signature
 
_formulate_hld(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_hld';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_isa.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_isa
 
=usage
 
  my $_formulate_isa = $self->_formulate_isa();
 
=description
 
The _formulate_isa function returns settings for the isa directive.
 
=signature
 
_formulate_isa(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_isa';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_lzy.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_lzy
 
=usage
 
  my $_formulate_lzy = $self->_formulate_lzy();
 
=description
 
The _formulate_lzy function returns settings for the lazy directive.
 
=signature
 
_formulate_lzy(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_lzy';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_opt.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_opt
 
=usage
 
  my $_formulate_opt = $self->_formulate_opt();
 
=description
 
The _formulate_opt function returns settings for the required directive.
 
=signature
 
_formulate_opt(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_opt';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_opts.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_opts
 
=usage
 
  my $_formulate_opts = $self->_formulate_opts();
 
=description
 
The _formulate_opts function returns settings for the required directive.
 
=signature
 
_formulate_opt(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_opts';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_pre.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_pre
 
=usage
 
  my $_formulate_pre = $self->_formulate_pre();
 
=description
 
The _formulate_pre function returns settings for the predicate directive.
 
=signature
 
_formulate_pre(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_pre';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_rdr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_rdr
 
=usage
 
  my $_formulate_rdr = $self->_formulate_rdr();
 
=description
 
The _formulate_rdr function returns settings for the reader directive.
 
=signature
 
_formulate_rdr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_rdr';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_req.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_req
 
=usage
 
  my $_formulate_req = $self->_formulate_req();
 
=description
 
The _formulate_req function returns settings for the required directive.
 
=signature
 
_formulate_req(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_req';
 
ok 1 and done_testing;

t/0.90/can/Data_Object_RoleHas__formulate_tgr.t  view on Meta::CPAN 

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
use strict;
use warnings;
 
use Test::More;
 
# POD
 
=name
 
_formulate_tgr
 
=usage
 
  my $_formulate_tgr = $self->_formulate_tgr();
 
=description
 
The _formulate_tgr function returns settings for the trigger directive.
 
=signature
 
_formulate_tgr(HashRef $arg1, Str $arg2, Any $arg3) : Any
 
=type
 
function
 
=cut
 
# TESTING
 
use_ok 'Data::Object::RoleHas';
 
my $data = 'Data::Object::RoleHas';
 
can_ok $data, '_formulate_tgr';
 
ok 1 and done_testing;



( run in 1.418 second using v1.01-cache-2.11-cpan-4e96b696675 )