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   550 use strict;
  16         37  
  16         363  
4 16     16   69 use warnings;
  16         28  
  16         338  
5              
6 16     16   76 use base 'Mojo::Base';
  16         28  
  16         1871  
7              
8             __PACKAGE__->attr('created');
9             __PACKAGE__->attr('source_uri');
10              
11             sub create {
12 4     4 0 686 my $self = shift;
13 4         7 my $path = shift;
14              
15 4 50   1   248 open my $file, '>>:encoding(UTF-8)', $path or return;
  1         6  
  1         1  
  1         7  
16              
17 4         8503 print $file $self->created->timestamp . ' ' . $self->source_uri . "\n";
18             }
19              
20             1;