File Coverage

blib/lib/WWW/Mechanize/FormFiller/Value/Callback.pm
Criterion Covered Total %
statement 30 30 100.0
branch 1 4 25.0
condition 2 6 33.3
subroutine 9 9 100.0
pod 2 2 100.0
total 44 51 86.2


line stmt bran cond sub pod time code
1             package WWW::Mechanize::FormFiller::Value::Callback;
2 5     4   1334 use base 'WWW::Mechanize::FormFiller::Value';
  4         8  
  4         1301  
3 4     4   23 use strict;
  4         6  
  4         83  
4              
5 4     4   17 use vars qw( $VERSION );
  4         4  
  4         360  
6             $VERSION = '0.13';
7              
8             sub new {
9 6     6 1 191 my ($class,$name,$coderef) = @_;
10 7         40 my $self = $class->SUPER::new($name);
11            
12 7         52 $self->{callback} = $coderef;
13              
14 7         33 $self;
15             };
16              
17             sub value {
18 7     6 1 19 my ($self,$input) = @_;
19 4     4   26 no strict 'refs';
  5         23322  
  4         549  
20 7         104 $self->{callback}->($self,$input);
21             };
22              
23             1;
24              
25             __END__