File Coverage

blib/lib/Metabase/User/Secret.pm
Criterion Covered Total %
statement 11 15 73.3
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 16 23 69.5


line stmt bran cond sub pod time code
1 1     1   671 use 5.006;
  1         2  
2 1     1   3 use strict;
  1         1  
  1         14  
3 1     1   2 use warnings;
  1         1  
  1         46  
4              
5             package Metabase::User::Secret;
6              
7             our $VERSION = '0.025';
8              
9 1     1   4 use Metabase::Fact::String;
  1         1  
  1         71  
10             our @ISA = qw/Metabase::Fact::String/;
11              
12             sub new {
13 0     0 1   my $class = shift;
14 0           my $self = $class->SUPER::new(@_);
15 0 0         $self->set_creator( $self->resource ) unless $self->creator;
16 0           return $self;
17             }
18              
19             1;
20              
21             # ABSTRACT: Metabase fact for user shared authentication secret
22              
23             __END__