File Coverage

blib/lib/Sakai/Nakamura/Group.pm
Criterion Covered Total %
statement 24 29 82.7
branch n/a
condition n/a
subroutine 8 9 88.8
pod 0 1 0.0
total 32 39 82.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2              
3             package Sakai::Nakamura::Group;
4              
5 1     1   1548 use 5.008008;
  1         4  
  1         36  
6 1     1   5 use strict;
  1         1  
  1         36  
7 1     1   5 use warnings;
  1         1  
  1         23  
8 1     1   5 use Carp;
  1         1  
  1         151  
9 1     1   5 use base qw(Apache::Sling::Group);
  1         2  
  1         1017  
10 1     1   241721 use Sakai::Nakamura;
  1         3  
  1         47  
11 1     1   6 use Sakai::Nakamura::Authn;
  1         3  
  1         49  
12              
13             require Exporter;
14              
15 1     1   6 use base qw(Exporter);
  1         2  
  1         166  
16              
17             our @EXPORT_OK = ();
18              
19             our $VERSION = '0.13';
20              
21             #{{{ sub command_line
22             sub command_line {
23 0     0 0   my ( $class, @ARGV ) = @_;
24 0           my $nakamura = Sakai::Nakamura->new;
25 0           my $config = $class->config( $nakamura, @ARGV );
26 0           my $authn = new Sakai::Nakamura::Authn( \$nakamura );
27 0           return $class->run( $nakamura, $config );
28             }
29              
30             #}}}
31              
32             1;
33              
34             __END__