File Coverage

blib/lib/App/Toodledo/Folder.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::Folder;
use strict;
use warnings;

our $VERSION = '1.01';

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

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

extends 'App::Toodledo::InternalWrapper';

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


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


1;

__END__

=head1 NAME

App::Toodledo::Folder - class encapsulating a Toodledo folder

=head1 SYNOPSIS

  $folder = App::Toodledo::Folder->new;
  $folder->name( 'Shopping List' )
  $todo = App::Toodledo->new;
  $todo->add_folder( $folder );

=head1 DESCRIPTION

This class provides accessors for the properties of a Toodledo folder.
The attributes of a folder are defined in the L<App::Toodledo::FolderRole>
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