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; |