File Coverage

blib/lib/WebService/Box/Folder.pm

Criterion	Covered	Total	%
statement	24	38	63.1
branch	1	8	12.5
condition			n/a
subroutine	8	9	88.8
pod	0	2	0.0
total	33	57	57.8

package WebService::Box::Folder;

use strict;
use warnings;

use Moo;
use Types::Standard qw(Str Int InstanceOf);
use WebService::Box::Types::Library qw(BoxPerson Timestamp BoxFolderHash OptionalStr);
use WebService::Box::Request;
use WebService::Box::File;

our $VERSION = 0.01;

has session => (is => 'ro', isa => InstanceOf["WebService::Box::Session"], required => 1);

has [qw/type id name description structure/] => (
    is  => 'ro',
    isa => Str,
);

has [qw/etag sequence_id sha1 item_status version_number/] => (
    is  => 'ro',
    isa => OptionalStr,
);

has [qw/size comment_count/] => (
    is  => 'ro',
    isa => Int,
);

has [qw/created_by modified_by owned_by/] => (
    is     => 'ro',
    isa    => BoxPerson,
    coerce => BoxPerson()->coercion,
);

has [qw/created_at modified_at trashed_at purged_at content_created_at content_modified_at/] => (
    is     => 'ro',
    isa    => Timestamp,
    coerce => Timestamp()->coercion,
);

has parent_data => (is => 'ro', isa => BoxFolderHash);

has request => (
    is      => 'ro',
    isa     => InstanceOf["WebService::Box::Request"],
    lazy    => 1,
    default => sub {
        my $self = shift;
        WebService::Box::Request->new( session => $self->session )
    },
);

has _parent_object => (is => 'rwp', isa => InstanceOf["WebService::Box::Folder"]);

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

    my $data = $self->parent_data;

    if ( !$data ) {
        if ( !$self->id ) {
            $self->session->box->error( 'no id for parent found and no file id exists' );
            return;
        }

        my %file_data = $self->request->do(
            ressource => 'files',
            id        => $self->id,
        );

        $self = $_[0] = WebService::Box::File->new( %file_data, session => $self->session );
    }

    if ( !$self->_parent_object ) {
        my $data               = $self->parent_data;
        my %parent_data_result = $self->request->do(
            ressource => 'folders',
            id        => $data->{id},
        );

        $self->_set__parent_object(
            WebService::Box::Folder->new( %{$data}, session => $self->session )
        );
    }

    return $self->_parent_object;
}

sub BUILDARGS {
   my ( $class, @args ) = @_;

   unshift @args, "id" if @args % 2 == 1;

   return { @args };
}

1;

__END__