File Coverage

blib/lib/WebService/Box.pm

Criterion	Covered	Total	%
statement	28	34	82.3
branch	4	12	33.3
condition			n/a
subroutine	10	11	90.9
pod	1	3	33.3
total	43	60	71.6

package WebService::Box;

# ABSTRACT: manage your documents on Box.com

use strict;
use warnings;

use Carp;
use Moo;
use Types::Standard qw(Str Int);

use WebService::Box::Session;

our $VERSION = 0.02;

has api_url    => (is => 'ro', isa => Str, required => 1, default => sub{ "" } );
has upload_url => (is => 'ro', isa => Str, required => 1, default => sub{ "" } );
has on_error   => (is => 'ro', isa => sub{
         die "invalid value for 'on_error'" if (
             ( ref $_[0] and ref $_[0] ne 'CODE' ) ||
             ( !ref $_[0] and defined $_[0] and $_[0] ne 'die' and $_[0] ne 'warn' )
         );
     }, default => sub{ \&_my_die } );

has on_warn   => (is => 'ro', isa => sub{
         die "invalid value for 'on_warn'" if (
             ( ref $_[0] and ref $_[0] ne 'CODE' ) ||
             !ref $_[0]
         );
     }, default => sub{ \&_my_warn } );

sub error {
    my ($self, $message) = @_;

    return if !$self->on_error;

    if ( !ref $self->on_error ) {
        if ( $self->on_error eq 'die' ) {
            _my_die( $message );
        }
        if ( $self->on_warn eq 'warn' ) {
            _my_warn( $message );
        }
    }
    else {
        $self->on_error->( $message );
    }
}

sub warn {
    my ($self, $message) = @_;

    return if !$self->on_warn;

    if ( !ref $self->on_warn ) {
        _my_warn( $message );
    }
    else {
        $self->on_warn->( $message );
    }
}

sub create_session {
    my ($self)
}

sub _my_die {
    croak $_[0];
}

sub _my_warn {
    carp $_[0];
}

1;

__END__