File Coverage

blib/lib/FormValidator/Simple/Plugin/CustomConstraint.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 24 66.6


line stmt bran cond sub pod time code
1             package FormValidator::Simple::Plugin::CustomConstraint;
2              
3 1     1   21160 use 5.012004;
  1         3  
  1         30  
4 1     1   5 use strict;
  1         2  
  1         30  
5 1     1   11 use warnings;
  1         6  
  1         30  
6              
7 1     1   783 use FormValidator::Simple::Constants;
  1         226  
  1         201  
8              
9             require Exporter;
10              
11             our @ISA = qw/Exporter/;
12              
13             our %EXPORT_TAGS = ( 'all' => [ qw// ] );
14             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15             our @EXPORT = qw//;
16              
17             our $VERSION = '0.01';
18              
19             sub CUSTOM_CONSTRAINT {
20 0     0 0   my ( $self, $params, $args ) = @_;
21 0           my $coderef = shift @{ $args };
  0            
22 0 0         return $coderef->( $params->[0], $args ) ? TRUE : FALSE;
23             }
24              
25             1;
26             __END__