File Coverage

blib/lib/Apache/Sling/AuthnUtil.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2              
3             package Apache::Sling::AuthnUtil;
4              
5 12     12   39461 use 5.008001;
  12         44  
  12         584  
6 12     12   70 use strict;
  12         19  
  12         419  
7 12     12   70 use warnings;
  12         60  
  12         705  
8 12     12   64 use Carp;
  12         27  
  12         1154  
9              
10             require Exporter;
11              
12 12     12   98 use base qw(Exporter);
  12         21  
  12         3376  
13              
14             our @EXPORT_OK = ();
15              
16             our $VERSION = '0.27';
17              
18             #{{{sub basic_login_setup
19             sub basic_login_setup {
20 2     2 1 41 my ($base_url) = @_;
21 2 100       6 if ( !defined $base_url ) { croak 'No base url defined!'; }
  1         27  
22 1         10 return "get $base_url/system/sling/login?sling:authRequestLogin=1";
23             }
24              
25             #}}}
26              
27             #{{{sub basic_login_eval
28             sub basic_login_eval {
29 1     1 1 60 my ($res) = @_;
30 1         3 return ( ${$res}->code eq '200' );
  1         4  
31             }
32              
33             #}}}
34              
35             1;
36              
37             __END__