File Coverage

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

Criterion	Covered	Total	%
statement	30	35	85.7
branch			n/a
condition			n/a
subroutine	12	15	80.0
pod	0	4	0.0
total	42	54	77.7

package WWW::Ohloh::API::Languages;
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::Language;

our $VERSION = '1.0_1';

my @ALLOWED_SORTING;
Readonly @ALLOWED_SORTING =>
  qw/ total code projects comment_ratio contributors commits name /;

sub element      { return 'WWW::Ohloh::API::Language' }
sub element_name { return 'language' }
sub query_path   { return 'languages.xml' }

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

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

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

sub _init : Init {
    my $self = shift;

    return;
}

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

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

__END__