File Coverage

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 47     47   394 use strict; use warnings;
  47     47   148  
  47         2049  
  47         286  
  47         94  
  47         4680  
4             my (%PRO);
5              
6             BEGIN {
7             %PRO = (
8             keyword => sub {
9 2345         4485 my ($caller, $method, $cb) = @_;
10 47     47   279 no strict 'refs';
  47         89  
  47         2492  
11 47     47   299 no warnings 'redefine';
  47         83  
  47         4635  
12 2345         3023 *{"${caller}::${method}"} = $cb;
  2345         114949  
13             }
14 47     47   3218 );
15             }
16              
17             sub new {
18 101     101 0 279 shift;
19             return (
20 101         118610 %PRO,
21             @_
22             );
23             }
24              
25             1;
26              
27             __END__