File Coverage

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

Criterion	Covered	Total	%
statement	35	43	81.4
branch	1	8	12.5
condition	0	6	0.0
subroutine	12	15	80.0
pod	0	4	0.0
total	48	76	63.1

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

use strict;
use warnings;

use Object::InsideOut qw/ WWW::Ohloh::API::Collection /;

use Carp;
use XML::LibXML;
use Readonly;
use List::MoreUtils qw/ any /;
use WWW::Ohloh::API::Message;

our $VERSION = '1.0_1';

my @account_of : Field : Arg(name => 'account') : Get(account);

my @project_of : Field : Arg(name => 'project') : Get(project);

my @ALLOWED_SORTING;
Readonly @ALLOWED_SORTING => qw/ /;    # TODO

sub element      { return 'WWW::Ohloh::API::Message' }
sub element_name { return 'message' }

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

sub query_path {
    my $self = shift;

    my $path;

    if ( $self->account ) {
        $path = 'accounts/' . $self->account;
    }
    elsif ( $self->project ) {
        $path = 'projects/' . $self->project;
    }
    else {
        croak "needs to have either an acccount or a project";
    }

    $path .= '/messages.xml';

    return $path;
}

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

sub _init : Init {
    my $self = shift;

    croak "must use only one of the arguments 'account' and 'project'"
      if $self->project and $self->account;

    croak "must use one of the arguments 'account' or 'project'"
      unless $self->project
          or $self->account;
}

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

sub is_allowed_sort {
    my $s = shift;
    return any { $s eq $_ } @ALLOWED_SORTING;
}

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

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

__END__