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

package CGI::Application::Plugin::Authentication::Driver::Filter::strip;
$CGI::Application::Plugin::Authentication::Driver::Filter::strip::VERSION = '0.23';
use strict;
use warnings;

sub check {
    return ( _strip( $_[2] ) eq $_[3] ) ? 1 : 0;
}

sub filter {
    return _strip( $_[2] );
}

sub _strip {
    my $str = shift;
    $str =~ s/^\s+//;
    $str =~ s/\s+$//;
    return $str;
}

1;
__END__