File Coverage

blib/lib/WWW/Giraffi/API/AppLog.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	39	48.7

package WWW::Giraffi::API::AppLog;

use strict;
use warnings;
use Time::Piece;

use parent qw(WWW::Giraffi::API::Request);

our $VERSION = '0.2_04';

# this method has not been tested
sub all {

    my ( $self, $other_options ) = @_;
	return $self->search(undef, $other_options);
}

# this method has not been tested
sub search {
	# no test
    my ( $self, $conditions, $other_options ) = @_;
    my $arrayref = $self->get( "applogs.json", $conditions, $other_options );
    if ($self->use_time_piece) {
        my $tmp_arrayref = [];
        foreach my $ref(@{$arrayref}) {
            $ref->{applog}->{time} = localtime($ref->{applog}->{time});
            push @{$tmp_arrayref}, $ref;
        }
        $arrayref = $tmp_arrayref;
    }
	return $arrayref;
}

# this method has not been tested
sub create {

    my ( $self, $conditions, $other_options ) = @_;
    return $self->post( sprintf("%s/applogs.json", $self->applogs_endpoint), undef, { applog => $conditions }, $other_options );
}

1;

__END__