File Coverage

blib/lib/Data/Format/Pretty/PHPSerialization.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition 1 2 50.0
subroutine 5 6 83.3
pod 1 2 50.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Data::Format::Pretty::PHPSerialization;
2              
3 1     1   663 use 5.010001;
  1         4  
  1         41  
4 1     1   6 use strict;
  1         1  
  1         35  
5 1     1   5 use warnings;
  1         3  
  1         30  
6              
7 1     1   986 use PHP::Serialization qw(serialize);
  1         4125  
  1         186  
8              
9             require Exporter;
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw(format_pretty);
12              
13             our $VERSION = '0.03'; # VERSION
14              
15 0     0 0 0 sub content_type { "application/vnd.php.serialized" }
16              
17             sub format_pretty {
18 1     1 1 1331 my ($data, $opts) = @_;
19 1   50     6 $opts //= {};
20 1         7 serialize($data);
21             }
22              
23             1;
24             # ABSTRACT: Pretty-print data structure as PHP serialization format
25              
26             __END__