File Coverage

blib/lib/SoggyOnion/Resource.pm

Criterion	Covered	Total	%
statement	6	28	21.4
branch	0	14	0.0
condition	0	3	0.0
subroutine	2	3	66.6
pod			n/a
total	8	48	16.6

package SoggyOnion::Resource;
use warnings;
use strict;

our $VERSION = '0.04';

# make sure that plugins i expect to use are loaded
require SoggyOnion::Plugin::RSS;
require SoggyOnion::Plugin::ImageScraper;

sub new {
    my ( $self, $item ) = @_;

    # do some error checking
    unless ( ref $item eq 'HASH' ) {
        warn "\t\titems must be a hash (got '$item')\n";
        return;
    }
    if ( not( defined $item->{id} ) || $item->{id} =~ /\W/ ) {
        warn "\t\titems must have an alphanumeric-only 'id' key\n";
        return;
    }

    # if we have an 'rss' key, assume it's an rss feed
    if ( exists $item->{rss} ) {
        return SoggyOnion::Plugin::RSS->new($item);
    }

    # if we have an 'images' key, assume it's an image scraper
    if ( exists $item->{images} ) {
        return SoggyOnion::Plugin::ImageScraper->new($item);
    }

    # if we have a 'plugin' key, it's a module. try using it.
    elsif ( exists $item->{plugin} ) {

        # try requiring
        eval "require $item->{plugin}";
        if ($@) {
            warn "\t\t$@\n";
            return;
        }

        # try actually getting an object from it
        my $rval;
        eval { $rval = $item->{plugin}->new($item); };
        warn "\t\t$@\n" if $@;
        return $rval;
    }

    # augh, no handler at all!
    warn "\t\titem contained keys qw("
        . join( ' ', keys %$item )
        . ") but don't know how to handle it\n";
    return;
}

1;

__END__