line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
5
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
68
|
|
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
push(@::bean_desc, { |
4
|
|
|
|
|
|
|
bean_opt => { |
5
|
|
|
|
|
|
|
abstract => 'Generic described object', |
6
|
|
|
|
|
|
|
package => 'PerlBean::Described', |
7
|
|
|
|
|
|
|
use_perl_version => 5.005, |
8
|
|
|
|
|
|
|
description => <
|
9
|
|
|
|
|
|
|
C is a generic abstract class to be inherited by objects that need to be described. |
10
|
|
|
|
|
|
|
EOF |
11
|
|
|
|
|
|
|
short_description => 'Generic described', |
12
|
|
|
|
|
|
|
synopsis => "None, this is an abstract class.\n", |
13
|
|
|
|
|
|
|
}, |
14
|
|
|
|
|
|
|
attr_opt => [ |
15
|
|
|
|
|
|
|
{ |
16
|
|
|
|
|
|
|
method_factory_name => 'description', |
17
|
|
|
|
|
|
|
short_description => 'the description', |
18
|
|
|
|
|
|
|
}, |
19
|
|
|
|
|
|
|
], |
20
|
|
|
|
|
|
|
} ); |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |