| blib/lib/Rope/Pro.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 18 | 18 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 6 | 6 | 100.0 |
| pod | 0 | 1 | 0.0 |
| total | 24 | 25 | 96.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Rope::Pro; | ||||||
| 2 | |||||||
| 3 | 55 | 55 | 294 | use strict; use warnings; | |||
| 55 | 55 | 87 | |||||
| 55 | 1614 | ||||||
| 55 | 218 | ||||||
| 55 | 94 | ||||||
| 55 | 3982 | ||||||
| 4 | my (%PRO); | ||||||
| 5 | |||||||
| 6 | BEGIN { | ||||||
| 7 | %PRO = ( | ||||||
| 8 | keyword => sub { | ||||||
| 9 | 3284 | 4041 | my ($caller, $method, $cb) = @_; | ||||
| 10 | 55 | 55 | 227 | no strict 'refs'; | |||
| 55 | 68 | ||||||
| 55 | 1968 | ||||||
| 11 | 55 | 55 | 215 | no warnings 'redefine'; | |||
| 55 | 78 | ||||||
| 55 | 3767 | ||||||
| 12 | 3284 | 2878 | *{"${caller}::${method}"} = $cb; | ||||
| 3284 | 91663 | ||||||
| 13 | } | ||||||
| 14 | 55 | 55 | 2748 | ); | |||
| 15 | } | ||||||
| 16 | |||||||
| 17 | sub new { | ||||||
| 18 | 111 | 111 | 0 | 215 | shift; | ||
| 19 | return ( | ||||||
| 20 | 111 | 84958 | %PRO, | ||||
| 21 | @_ | ||||||
| 22 | ); | ||||||
| 23 | } | ||||||
| 24 | |||||||
| 25 | 1; | ||||||
| 26 | |||||||
| 27 | __END__ |