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   21 use strict;
  4         8  
  4         153  
4 4     4   19 use warnings;
  4         6  
  4         122  
5              
6 4     4   17 use base 'Bootylicious::Document';
  4         6  
  4         615  
7              
8 2 50   2 0 2751 sub title { my $self = shift; $self->metadata(title => @_) || $self->name }
  2         19  
9 1     1 0 8 sub description { shift->metadata(description => @_) }
10              
11             1;