File Coverage

blib/lib/AnyEvent/WebService/Tracks/Context.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	37	48.6

package AnyEvent::WebService::Tracks::Context;

use strict;
use warnings;
use parent 'AnyEvent::WebService::Tracks::Resource';

our $VERSION = '0.02';

__PACKAGE__->readonly(qw/created_at id updated_at/);
__PACKAGE__->accessor(qw/name position/);

sub resource_path {
    return 'contexts';
}

sub xml_root {
    return 'context';
}

sub is_hidden {
    my ( $self ) = @_;

    return $self->{'hide'} eq 'true';
}

sub hide {
    my ( $self ) = @_;

    $self->{'hide'}           = 'true';
    $self->{'_dirty'}{'hide'} = 1;
}

sub unhide {
    my ( $self ) = @_;

    $self->{'hide'}           = 'false';
    $self->{'_dirty'}{'hide'} = 1;
}

sub todos {
    my ( $self, $cb ) = @_;

    my $id = $self->id;
    $self->{'parent'}->fetch_multiple("contexts/$id/todos",
        'AnyEvent::WebService::Tracks::Todo', $cb);
};

1;

__END__