File Coverage

blib/lib/WWW/Ohloh/API/Repository.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	2	50.0
total	41	42	97.6

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

use strict;
use warnings;

use Carp;
use XML::LibXML;
use URI;

use Object::InsideOut qw/
  WWW::Ohloh::API::Role::Fetchable
  WWW::Ohloh::API::Role::LoadXML
  /;

our $VERSION = '1.0_1';

my @api_fields = qw/
  id
  type
  url
  module_name
  username
  password
  logged_at
  commits
  ohloh_job_status
  /;

#<<<
my @id_of               : Field
                        : Set(_set_id)
                        : Get(id)
                        ;
my @type_of             : Field
                        : Set(_set_type)
                        : Get(type);
my @url_of              : Field
                        : Type(URI)
                        : Get(url)
                        ;
my @module_name_of      : Field
                        : Set(_set_module_name)
                        : Get(module_name);
my @username_of         : Field
                        : Set(_set_username)
                        : Get(username);
my @password_of         : Field
                        : Set(_set_password)
                        : Get(password)
                        ;
my @logged_at_of        : Field
                        : Set(_set_logged_at)
                        : Get(logged_at)
                        ;
my @commits_of          : Field
                        : Set(_set_commits)
                        : Get(commits)
                        ;
my @ohloh_job_status_of : Field
                        : Set(_set_ohloh_job_status)
                        : Get(ohloh_job_status);
#>>>
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub load_xml {
    my ( $self, $dom ) = @_;

    for my $f (@api_fields) {
        my $m = "_set_$f";

        $self->$m( $dom->findvalue("$f/text()") );
    }
}

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

sub _set_url {
    my ( $self, $url ) = @_;
    $url_of[$$self] = URI->new($url);
}

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

sub as_xml {
    my $self = shift;
    my $xml;
    my $w = XML::Writer->new( OUTPUT => \$xml );

    $w->startTag('repository');

    $w->dataElement( $_ => $self->$_ ) for @api_fields;

    $w->endTag;

    return $xml;
}

'end of WWW::Ohloh::API::Repository';

__END__