File Coverage

blib/lib/YAML/Tiny/LikeJSON.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	37	37	100.0

package YAML::Tiny::LikeJSON;
BEGIN {
  $YAML::Tiny::LikeJSON::VERSION = '0.0011';
}
# ABSTRACT: Use YAML::Tiny like JSON


use strict;
use warnings;

use YAML::Tiny;
use Carp;

sub new { return bless {}, shift }

sub decode {
    my $self = shift;
    my $YAML = YAML::Tiny->read_string( $_[0] );
    if ( ( my $size = @$YAML ) > 1 ) {
        carp "Decoded more than 1 document (actually $size, but only returning the first)"
    }
    return $YAML->[0];
}

sub encode {
    my $self = shift;
    my $YAML = YAML::Tiny->new( $_[0] );
    my $content = $YAML->write_string;
    $content =~ s/\A\s*---\s*\n+//sm;
    return $content;
}

1;

__END__