File Coverage

blib/lib/HTML/FormFu/Literal.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 3 0.0
total 30 33 90.9


line stmt bran cond sub pod time code
1             package HTML::FormFu::Literal;
2              
3 404     404   1488 use strict;
  404         513  
  404         9874  
4 404     404   1295 use warnings;
  404         425  
  404         15349  
5              
6             our $VERSION = '2.05'; # VERSION
7              
8 404     404   1365 use HTML::FormFu::Constants qw( $EMPTY_STR );
  404         505  
  404         42945  
9              
10             use overload
11 102     102   93 '""' => sub { return join $EMPTY_STR, @{ $_[0] } },
  102         333  
12 404     404   4514 fallback => 1;
  404         2629  
  404         3558  
13              
14             sub new {
15 70     70 0 87 my $class = shift;
16              
17 70         339 return bless \@_, $class;
18             }
19              
20             sub push {
21 4     4 0 22 my ( $self, @args ) = @_;
22              
23 4         4 CORE::push( @{ $_[0] }, @args );
  4         13  
24             }
25              
26             sub unshift {
27 1     1 0 2 my ( $self, @args ) = @_;
28              
29 1         1 CORE::unshift( @{ $_[0] }, @args );
  1         4  
30             }
31              
32             1;