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   1650 use base 'WWW::Mechanize::FormFiller::Value';
  4         7  
  4         1653  
3 4     4   20 use strict;
  4         5  
  4         122  
4              
5 4     4   15 use vars qw( $VERSION );
  4         7  
  4         435  
6             $VERSION = '0.11';
7              
8             sub new {
9 6     6 1 118 my ($class,$name,$coderef) = @_;
10 7         85 my $self = $class->SUPER::new($name);
11            
12 7         74 $self->{callback} = $coderef;
13              
14 7         33 $self;
15             };
16              
17             sub value {
18 7     6 1 22 my ($self,$input) = @_;
19 4     4   17 no strict 'refs';
  5         29179  
  4         186  
20 7         154 $self->{callback}->($self,$input);
21             };
22              
23             1;
24              
25             __END__