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   687 use strict;
  16         26  
  16         599  
4 16     16   76 use warnings;
  16         23  
  16         513  
5              
6 16     16   86 use base 'Mojo::Base';
  16         23  
  16         3751  
7              
8             __PACKAGE__->attr('created');
9             __PACKAGE__->attr('source_uri');
10              
11             sub create {
12 4     4 0 572 my $self = shift;
13 4         9 my $path = shift;
14              
15 4 50   1   333 open my $file, '>>:encoding(UTF-8)', $path or return;
  1         4  
  1         2  
  1         4  
16              
17 4         9336 print $file $self->created->timestamp . ' ' . $self->source_uri . "\n";
18             }
19              
20             1;