File Coverage

blib/lib/cPanel/TQSerializer/YAML.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 3 3 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package cPanel::TQSerializer::YAML;
2             {
3             $cPanel::TQSerializer::YAML::VERSION = '0.606';
4             }
5              
6             # cpanel - cPanel/TQSerializer/YAML.pm Copyright(c) 2014 cPanel, Inc.
7             # All rights Reserved.
8             # copyright@cpanel.net http://cpanel.net
9             # This code is subject to the cPanel license. Unauthorized copying is prohibited
10              
11 3     3   2518 use YAML::Syck ();
  3         8052  
  3         130  
12              
13             # with no bless flags
14             $YAML::Syck::LoadBlessed = 0;
15             $YAML::Syck::NoBless = 1;
16              
17             #use warnings;
18 3     3   27 use strict;
  3         8  
  3         561  
19              
20             sub load {
21 5     5 1 11 my ( $class, $fh ) = @_;
22 5         19 local $/;
23 5         142 return YAML::Syck::Load( scalar <$fh> );
24             }
25              
26             sub save {
27 5     5 1 17 my ( $class, $fh, @args ) = @_;
28 5         26 return print $fh YAML::Syck::Dump(@args);
29             }
30              
31             sub filename {
32 8     8 1 20 my ( $class, $stub ) = @_;
33 8         63 return "$stub.yaml";
34             }
35              
36             1;
37