File Coverage

blib/lib/Class/Component/Attribute/Method.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Class::Component::Attribute::Method;
2              
3 16     16   94 use strict;
  16         36  
  16         694  
4 16     16   92 use warnings;
  16         36  
  16         503  
5 16     16   121 use base 'Class::Component::Attribute';
  16         40  
  16         9812  
6              
7             sub register {
8 100     100 0 225 my($class, $plugin, $c, $method, $value) = @_;
9              
10 100 100       246 if ($value) {
11 4         28 $c->register_method( $value => { plugin => $plugin, method => $method } );
12             } else {
13 96         473 $c->register_method( $method => $plugin );
14             }
15             }
16              
17             1;