File Coverage

lib/Mozilla/Persona/Aliases.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition n/a
subroutine 4 7 57.1
pod 2 3 66.6
total 18 28 64.2


line stmt bran cond sub pod time code
1             # Copyrights 2012 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.00.
5 1     1   1951 use warnings;
  1         2  
  1         39  
6 1     1   5 use strict;
  1         3  
  1         44  
7              
8             package Mozilla::Persona::Aliases;
9 1     1   5 use vars '$VERSION';
  1         1  
  1         65  
10             $VERSION = '0.12';
11              
12 1     1   6 use Log::Report qw/persona/;
  1         2  
  1         13  
13              
14              
15 0     0 1   sub new(%) { my $class = shift; (bless {}, $class)->init({@_}) }
  0            
16             sub init($)
17 0     0 0   { my ($self, $args) = @_;
18 0           $self;
19             }
20              
21             #-----------------------------
22              
23             sub for($)
24 0     0 1   { my ($self, $user) = @_;
25 0           ($user);
26             }
27              
28             1;