File Coverage

blib/lib/Sakai/Nakamura.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2             package Sakai::Nakamura;
3              
4 8     8   232243 use 5.008008;
  8         39  
  8         747  
5 8     8   51 use strict;
  8         16  
  8         322  
6 8     8   42 use warnings;
  8         31  
  8         286  
7 8     8   51 use Carp;
  8         16  
  8         1560  
8 8     8   57 use base qw(Apache::Sling);
  8         15  
  8         7624  
9             require Exporter;
10              
11 8     8   1244341 use base qw(Exporter);
  8         20  
  8         1106  
12              
13             our @EXPORT_OK = ();
14              
15             our $VERSION = '0.13';
16              
17             #{{{sub new
18             sub new {
19 7     7 1 87 my ( $class, @args ) = @_;
20 7         91 my $nakamura = $class->SUPER::new(@args);
21              
22             # Set the referer so that nakamura POST requests will work:
23 7         234 $nakamura->{'Referer'} = q{/dev/integrationtests};
24              
25 7         23 bless $nakamura, $class;
26 7         30 return $nakamura;
27             }
28              
29             #}}}
30             1;
31             __END__