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   22 use strict;
  4         8  
  4         89  
4 4     4   15 use warnings;
  4         8  
  4         81  
5              
6 4     4   16 use base 'Bootylicious::Document';
  4         8  
  4         385  
7              
8 2 50   2 0 2026 sub title { my $self = shift; $self->metadata(title => @_) || $self->name }
  2         12  
9 1     1 0 5 sub description { shift->metadata(description => @_) }
10              
11             1;