File Coverage

blib/lib/WWW/Connpass.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 15 24 62.5


line stmt bran cond sub pod time code
1             package WWW::Connpass;
2 1     1   411 use 5.012000;
  1         2  
3 1     1   3 use strict;
  1         1  
  1         14  
4 1     1   2 use warnings;
  1         6  
  1         30  
5              
6             our $VERSION = "0.03";
7              
8 1     1   306 use WWW::Connpass::Session;
  1         2  
  1         88  
9              
10             sub new {
11 0     0 0   my $class = shift;
12              
13 0           my $user_agent = "$class/".$class->VERSION;
14 0           return bless {
15             user_agent => $user_agent,
16             interval => 1,
17             @_,
18             } => $class;
19             }
20              
21             sub login {
22 0     0 0   my ($self, $user, $pass) = @_;
23 0           return WWW::Connpass::Session->new($user, $pass, $self);
24             }
25              
26             1;
27             __END__