File Coverage

lib/Badger/Codec/YAML.pm

Criterion	Covered	Total	%
statement	3	9	33.3
branch			n/a
condition			n/a
subroutine	1	5	20.0
pod			n/a
total	4	14	28.5

#========================================================================
#
# Badger::Codec::YAML
#
# DESCRIPTION
#   Codec module for encoding/decoding YAML
#
# AUTHOR
#   Andy Wardley
#
#========================================================================

package Badger::Codec::YAML;

use Badger::Class
    version => 0.01,
    base    => 'Badger::Codec',
    import  => 'class CLASS';

eval "require YAML::XS";
our $HAS_YAML_XS = $@ ? 0 : 1;
our $HAS_YAML;

unless ($HAS_YAML_XS) {
    eval "require YAML";
    $HAS_YAML = $@ ? 0 : 1;
}

our $MODULE =
    $HAS_YAML_XS ? 'YAML::XS' :
    $HAS_YAML    ? 'YAML'     :
    CLASS->error("You don't have YAML or YAML::XS installed");
    #die "No YAML implementation installed\n";

*yaml_dump = $HAS_YAML_XS ? \&YAML::XS::Dump : \&YAML::Dump;
*yaml_load = $HAS_YAML_XS ? \&YAML::XS::Load : \&YAML::Load;

sub encode {
    my $self = shift;
    yaml_dump(shift);
}

sub decode {
    my $self = shift;
    yaml_load(shift);
}

# shortcuts straight to the real encoder/decoder subs for efficient aliasing

sub encoder {
    \&yaml_dump;
}

sub decoder {
    \&yaml_load;
}


1;


__END__