File Coverage

blib/lib/Data/OpenGraph.pm

Criterion	Covered	Total	%
statement	19	26	73.0
branch	1	4	25.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	3	4	75.0
total	31	45	68.8

package Data::OpenGraph;
use strict;
use Carp ();
use Data::OpenGraph::Parser;
use constant +{
    HAVE_LWP => eval { require LWP::UserAgent } && !$@ ? 1 : 0,
};

our $VERSION = '0.01';

sub new {
    my ($class, %args) = @_;
    bless { %args }, $class;
}

sub property {
    my ($self, $name) = @_;
    return $self->{properties}->{$name};
}

sub parse_uri {
    my ($class, $uri) = @_;
    if (HAVE_LWP) {
        my $ua = LWP::UserAgent->new();
        my $res = $ua->get( $uri );
        if (! $res->is_success) {
            Carp::croak( "Failed to get $uri: " . $res->status_line);
        }
        return $class->parse_string( $res->decoded_content );
    } else {
        Carp::croak( "No applicable UserAgent (such as LWP::UserAgent) found" );
    }
}

sub parse_string {
    my ($class, $string) = @_;
    my $properties = Data::OpenGraph::Parser->new()->parse_string( $string );
    Data::OpenGraph->new( properties => \%$properties );
}

1;

__END__