| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
1
|
|
|
1
|
|
4
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
90
|
|
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
push(@::bean_desc, { |
|
4
|
|
|
|
|
|
|
bean_opt => { |
|
5
|
|
|
|
|
|
|
abstract => 'Generic described object', |
|
6
|
|
|
|
|
|
|
package => 'PerlBean::Described::ExportTag', |
|
7
|
|
|
|
|
|
|
base => [ qw( PerlBean::Described ) ], |
|
8
|
|
|
|
|
|
|
use_perl_version => 5.005, |
|
9
|
|
|
|
|
|
|
description => <
|
|
10
|
|
|
|
|
|
|
C describes export tags for pod generation in C objects. |
|
11
|
|
|
|
|
|
|
EOF |
|
12
|
|
|
|
|
|
|
short_description => 'Tag description', |
|
13
|
|
|
|
|
|
|
synopsis => "TODO\n", |
|
14
|
|
|
|
|
|
|
}, |
|
15
|
|
|
|
|
|
|
attr_opt => [ |
|
16
|
|
|
|
|
|
|
{ |
|
17
|
|
|
|
|
|
|
method_factory_name => 'export_tag_name', |
|
18
|
|
|
|
|
|
|
short_description => 'tag\'s name', |
|
19
|
|
|
|
|
|
|
type => 'SINGLE', |
|
20
|
|
|
|
|
|
|
mandatory => 1, |
|
21
|
|
|
|
|
|
|
allow_empty => 0, |
|
22
|
|
|
|
|
|
|
allow_rx => [qw(^\w+$)], |
|
23
|
|
|
|
|
|
|
}, |
|
24
|
|
|
|
|
|
|
], |
|
25
|
|
|
|
|
|
|
} ); |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |