line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Plack::Util::Accessor; |
2
|
116
|
|
|
116
|
|
686
|
use strict; |
|
116
|
|
|
|
|
203
|
|
|
116
|
|
|
|
|
2971
|
|
3
|
116
|
|
|
116
|
|
494
|
use warnings; |
|
116
|
|
|
|
|
205
|
|
|
116
|
|
|
|
|
8111
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
sub import { |
6
|
230
|
|
|
230
|
|
464
|
shift; |
7
|
230
|
50
|
|
|
|
772
|
return unless @_; |
8
|
230
|
|
|
|
|
559
|
my $package = caller(); |
9
|
230
|
|
|
|
|
539
|
mk_accessors( $package, @_ ); |
10
|
|
|
|
|
|
|
} |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub mk_accessors { |
13
|
230
|
|
|
230
|
0
|
346
|
my $package = shift; |
14
|
116
|
|
|
116
|
|
670
|
no strict 'refs'; |
|
116
|
|
|
|
|
166
|
|
|
116
|
|
|
|
|
15772
|
|
15
|
230
|
|
|
|
|
527
|
foreach my $field ( @_ ) { |
16
|
389
|
|
|
|
|
26233
|
*{ $package . '::' . $field } = sub { |
17
|
1712
|
100
|
|
1712
|
|
27366
|
return $_[0]->{ $field } if scalar( @_ ) == 1; |
18
|
92
|
50
|
|
|
|
408
|
return $_[0]->{ $field } = scalar( @_ ) == 2 ? $_[1] : [ @_[1..$#_] ]; |
19
|
389
|
|
|
|
|
1482
|
}; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
__END__ |