File Coverage

blib/lib/YAML/LoadURI.pm

Criterion	Covered	Total	%
statement	24	28	85.7
branch	3	10	30.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	35	46	76.0

package YAML::LoadURI;

use warnings;
use strict;

our $VERSION = '0.01';

use base 'Exporter';
our @EXPORT = ('LoadURI');

use LWP::Simple ();
use YAML::Any   ();
use Carp qw/croak/;

sub LoadURI {
    my ( $uri, $opts ) = @_;

    $opts->{raise_error} = 1 unless exists $opts->{raise_error};

    my $yaml = LWP::Simple::get($uri);
    unless (defined $yaml) {
        croak "Couldn't get it!" if $opts->{raise_error};
        return undef;
    }
    unless ( $yaml =~ /^---/ ) {
        croak "invalid YAML" if $opts->{raise_error};
        return undef;
    }

    return YAML::Any::Load($yaml);
}

1;
__END__