File Coverage

blib/lib/Bootylicious/Page.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 21 85.7


line stmt bran cond sub pod time code
1             package Bootylicious::Page;
2              
3 4     4   12 use strict;
  4         26  
  4         84  
4 4     4   14 use warnings;
  4         5  
  4         106  
5              
6 4     4   14 use base 'Bootylicious::Document';
  4         5  
  4         392  
7              
8 2 50   2 0 1653 sub title { my $self = shift; $self->metadata(title => @_) || $self->name }
  2         10  
9 1     1 0 4 sub description { shift->metadata(description => @_) }
10              
11             1;