File Coverage

blib/lib/CGI/Application/Plugin/Authentication/Driver/Filter/strip.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package CGI::Application::Plugin::Authentication::Driver::Filter::strip;
2             $CGI::Application::Plugin::Authentication::Driver::Filter::strip::VERSION = '0.23';
3 1     1   72991 use strict;
  1         16  
  1         48  
4 1     1   7 use warnings;
  1         2  
  1         159  
5              
6             sub check {
7 2 100   2 1 5 return ( _strip( $_[2] ) eq $_[3] ) ? 1 : 0;
8             }
9              
10             sub filter {
11 1     1 1 67 return _strip( $_[2] );
12             }
13              
14             sub _strip {
15 3     3   6 my $str = shift;
16 3         13 $str =~ s/^\s+//;
17 3         11 $str =~ s/\s+$//;
18 3         16 return $str;
19             }
20              
21             1;
22             __END__