File Coverage

blib/lib/Bootylicious/Pingback.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Bootylicious::Pingback;
2              
3 16     16   541 use strict;
  16         19  
  16         364  
4 16     16   52 use warnings;
  16         19  
  16         336  
5              
6 16     16   50 use base 'Mojo::Base';
  16         16  
  16         2007  
7              
8             __PACKAGE__->attr('created');
9             __PACKAGE__->attr('source_uri');
10              
11             sub create {
12 4     4 0 526 my $self = shift;
13 4         7 my $path = shift;
14              
15 4 50   1   255 open my $file, '>>:encoding(UTF-8)', $path or return;
  1         5  
  1         1  
  1         6  
16              
17 4         8238 print $file $self->created->timestamp . ' ' . $self->source_uri . "\n";
18             }
19              
20             1;