File Coverage

blib/lib/App/Toodledo/Location.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	32	32	100.0

package App::Toodledo::Location;
use strict;
use warnings;

our $VERSION = '1.00';

use Carp;
use Moose;
use MooseX::Method::Signatures;
use App::Toodledo::LocationInternal;

use Moose::Util::TypeConstraints;
BEGIN { class_type 'App::Toodledo' };

extends 'App::Toodledo::InternalWrapper';

has object => ( is => 'ro', isa => 'App::Toodledo::LocationInternal',
	        default => sub { App::Toodledo::LocationInternal->new },
	        handles => sub { __PACKAGE__->internal_attributes( $_[1] ) } );


method add ( App::Toodledo $todo! ) {
  my @args = ( name => $self->name );
  $self->$_ and push @args, ( $_ => $self->$_ ) for qw(description lat lon);
  my $added_ref = $todo->call_func( location => add => { @args } );
  $added_ref->[0]{id};
}


1;

__END__

=head1 NAME

App::Toodledo::Location - class encapsulating a Toodledo location

=head1 SYNOPSIS

  $location = App::Toodledo::Location->new;
  $location->name( 'Sydney' )
  $todo = App::Toodledo->new;
  $todo->add_location( $location );

=head1 DESCRIPTION

This class provides accessors for the properties of a Toodledo location.
The attributes of a location are defined in the L<App::Toodledo::LocationRole>
module.

=head1 AUTHOR

Peter J. Scott, C<< <cpan at psdt.com> >>

=head1 SEE ALSO

Toodledo: L<http://www.toodledo.com/>.

Toodledo API documentation: L<http://www.toodledo.com/info/api_doc.php>.

=head1 COPYRIGHT & LICENSE

Copyright 2009-2011 Peter J. Scott, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut