File Coverage

blib/lib/CGI/Application/Plugin/Authentication/Driver/Filter/uc.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package CGI::Application::Plugin::Authentication::Driver::Filter::uc;
2              
3 2     2   22748 use strict;
  2         6  
  2         68  
4 2     2   11 use warnings;
  2         4  
  2         193  
5             our $VERSION = '0.20';
6              
7             sub check {
8 2 100   2 1 16 return ( uc $_[2] eq $_[3] ) ? 1 : 0;
9             }
10              
11             sub filter {
12 6     6 1 53 return uc $_[2];
13             }
14              
15             1;
16             __END__