File Coverage

blib/lib/WWW/Ohloh/API/Role/Fetchable.pm

Criterion	Covered	Total	%
statement	34	43	79.0
branch	1	2	50.0
condition	0	6	0.0
subroutine	10	11	90.9
pod	0	3	0.0
total	45	65	69.2

package WWW::Ohloh::API::Role::Fetchable;
our $AUTHORITY = 'cpan:YANICK';

use strict;
use warnings;

use Object::InsideOut;

use Carp;
use Params::Validate qw/ validate_with validate /;
use URI;

our $VERSION = '1.0_1';

#<<<
my @request_url_of  : Field
                    : Arg(Name => 'request_url', Preproc => \&WWW::Ohloh::API::Role::Fetchable::process_url)
                    : Get(request_url)
                    : Type(URI);
my @ohloh_of        : Field
                    : Arg(ohloh)
                    : Set(set_ohloh)
                    : Get(ohloh);
#>>>
sub process_url {
    my $value = $_[4];

    return URI->new($value);
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub fetch {
    my ( $class, @args ) = @_;

    if ( ref $class ) {
        push @args, ohloh => $class->ohloh;
        $class = ref $class;
    }

    my %param = validate_with(
        params      => \@args,
        spec        => { ohloh => 1 },
        allow_extra => 1,
    );

    my $ohloh = $param{ohloh};

    my ($url) = $class->generate_query_url(%param);

    my ( undef, $xml ) = $ohloh->_query_server($url);

    my ($node) = $xml->findnodes( $class->element_name );

    return $class->new( ohloh => $ohloh, xml => $node, request_url => $url );
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub generate_query_url : Chained(bottom up) {
    my ( $self, $url, %args ) = @_;

    my $ohloh = $args{ohloh};
    delete $args{ohloh};
    $args{api_key} ||= $ohloh->get_api_key;
    $args{v}       ||= $ohloh->get_api_version;

    no warnings qw/ uninitialized /;

    return $WWW::Ohloh::API::OHLOH_URL . $url . '?' . join '&',
      map { $_ . '=' . $args{$_} } reverse sort keys %args;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'end of WWW::Ohloh::API::Role::Fetchable';

__END__