| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
1
|
|
|
1
|
|
4
|
use strict; |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
109
|
|
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
my $pkg = 'PerlBean::Method::Factory'; |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
push(@::bean_desc, { |
|
6
|
|
|
|
|
|
|
bean_opt => { |
|
7
|
|
|
|
|
|
|
abstract => 'Abstract PerlBean method factory information', |
|
8
|
|
|
|
|
|
|
package => $pkg, |
|
9
|
|
|
|
|
|
|
use_perl_version => 5.005, |
|
10
|
|
|
|
|
|
|
description => <
|
|
11
|
|
|
|
|
|
|
C<${pkg}> abstract class for method factory information. |
|
12
|
|
|
|
|
|
|
EOF |
|
13
|
|
|
|
|
|
|
short_description => 'contains bean method factory information', |
|
14
|
|
|
|
|
|
|
synopsis => "None. This is an abstract class.\n", |
|
15
|
|
|
|
|
|
|
}, |
|
16
|
|
|
|
|
|
|
attr_opt => [ |
|
17
|
|
|
|
|
|
|
{ |
|
18
|
|
|
|
|
|
|
method_factory_name => 'method_factory_name', |
|
19
|
|
|
|
|
|
|
type => 'SINGLE', |
|
20
|
|
|
|
|
|
|
mandatory => 1, |
|
21
|
|
|
|
|
|
|
allow_empty => 0, |
|
22
|
|
|
|
|
|
|
allow_rx => [qw(^\w+$)], |
|
23
|
|
|
|
|
|
|
short_description => 'method factory\'s name', |
|
24
|
|
|
|
|
|
|
}, |
|
25
|
|
|
|
|
|
|
{ |
|
26
|
|
|
|
|
|
|
method_factory_name => 'perl_bean', |
|
27
|
|
|
|
|
|
|
type => 'SINGLE', |
|
28
|
|
|
|
|
|
|
allow_isa => [qw(PerlBean)], |
|
29
|
|
|
|
|
|
|
short_description => 'the PerlBean to which this method factory belongs', |
|
30
|
|
|
|
|
|
|
}, |
|
31
|
|
|
|
|
|
|
], |
|
32
|
|
|
|
|
|
|
meth_opt => [ |
|
33
|
|
|
|
|
|
|
{ |
|
34
|
|
|
|
|
|
|
method_name => 'create_methods', |
|
35
|
|
|
|
|
|
|
description => <
|
|
36
|
|
|
|
|
|
|
Returns a list of C objects. |
|
37
|
|
|
|
|
|
|
EOF |
|
38
|
|
|
|
|
|
|
interface => 1, |
|
39
|
|
|
|
|
|
|
}, |
|
40
|
|
|
|
|
|
|
], |
|
41
|
|
|
|
|
|
|
use_opt => [ |
|
42
|
|
|
|
|
|
|
], |
|
43
|
|
|
|
|
|
|
} ); |
|
44
|
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
1; |