File Coverage

blib/lib/WebService/Bitly/Entry.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	2	2	100.0
subroutine	6	6	100.0
pod	1	2	50.0
total	24	25	96.0

package WebService::Bitly::Entry;

use warnings;
use strict;
use Carp;

use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw(
    error

    short_url
    hash
    global_hash
    long_url
    user_hash

    user_clicks
    global_clicks

    url

    title
    created_by

    referrer
    referrer_app
    clicks

    country

    day_start
));

sub new {
    my ($class, $entry) = @_;
    my $self = $class->SUPER::new($entry);
}

sub is_error {
    return shift->error || 0;
}

1;