File Coverage

blib/lib/Metabase/User/Secret.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 24 70.8


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