File Coverage

blib/lib/WWW/SmartSheet.pm

Criterion	Covered	Total	%
statement	18	89	20.2
branch	0	16	0.0
condition			n/a
subroutine	6	19	31.5
pod	9	10	90.0
total	33	134	24.6

package WWW::SmartSheet;

our $VERSION = '0.06';

use Moo;
use MooX::late;

use Carp ();
use Data::Dumper qw(Dumper);
use LWP::UserAgent;
use JSON qw(from_json to_json);

has token => (is => 'ro', required => 1);

has sheets => (is => 'rw', isa => 'ArrayRef');

my $API_URL = "https://api.smartsheet.com/2.0";
my @ACCESS_LEVELS = qw(VIEWER EDITOR EDITOR_SHARE ADMIN);

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

    my $ua = LWP::UserAgent->new( agent => "WWW::SmartSheet v$VERSION https://github.com/szabgab/WWW-SmartSheet" );
    $ua->timeout(10);
    $ua->default_header("Authorization" => "Bearer " . $self->token);
    $ua->default_header("Content-Type" => "application/json");
    return $ua;
}

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

  my $current_user = $self->_get('users/me');
  return $current_user;
}

sub get_sheets {
    my ($self, $pagesize, $page) = @_;

    my $all_sheets = $self->_get("sheets",
                                 ("pageSize" => $pagesize,
                                  "page" => $page,
                                 )
        );
    return $all_sheets;
}

sub get_columns {
    my ($self, $sheetid, $pagesize, $page) = @_;

    my $cols = $self->_get("sheets/$sheetid/columns",
                           ("pageSize" => $pagesize,
                            "page" => $page,
                           )
        );
    return $cols;
}

sub share_sheet {
    my ($self, $sheetid, $email, $access_level) = @_;

    my $result = $self->_post("sheets/$sheetid/shares?sendEmail=true", {email => $email, accessLevel => $access_level});
    return $result;
}

sub create_sheet {
    my ($self, %args) = @_;

    return $self->_post('sheets', \%args);
}

sub delete_sheet {
    my ($self, $id) = @_;

    $self->_delete("sheets/$id");
}

sub add_column {
    my ($self, $sheet_id, $column) = @_;

    return $self->_post("sheets/$sheet_id/columns", $column );
}

sub insert_rows {
    my ($self, $sheet_id, $loc, @rows) = @_;

    my @full_rows;
    foreach my $row (@rows) {
        my $lv = 1;

        my %r;
        $r{"cells"} = $row;

        if ($loc =~ m/(=)/) {

	    my $l = $loc;
	    if ($l =~ m/,above/) {
                $l =~ s/,above//;
                $r{"above"} = 1;
	    }
	    my ($k, $v) = split(/=/, $l);
	    if ($v) {
                $r{$k}=$v;
	    }

        } else {

	    $r{"$loc"} = 1;

        }
        push (@full_rows, \%r);
    }

    return $self->_post("sheets/$sheet_id/rows", \@full_rows);
}

sub get_sheet_by_id {
    my ($self, $id, $pagesize, $page) = @_;

    my $sheet = $self->_get("sheets/$id",
                            ("pageSize" => $pagesize,
                             "page" => $page,
                            )
        );
    return $sheet;
}

sub _post {
    my ($self, $path, $data) = @_;

    my $url = "$API_URL/$path";
    my $ua = $self->ua;
    my $json = to_json($data);

    my $req = HTTP::Request->new( 'POST', $url );
    $req->content( $json );
    my $res = $ua->request( $req );

    Carp::croak $res->status_line . $res->content if not $res->is_success;
    return from_json $res->decoded_content;
}

sub _get {
    my ($self, $path, %params) = @_;

    my $paramstr;
    my $url = "$API_URL/$path";

    foreach my $param (keys %params) {

        if (!$params{$param}) {
	    # ignore empty params
	    next;
        }

        $paramstr .= $param . "=" . $params{$param} . "&";
    }

    if ($paramstr) {
        $paramstr =~ s/&$//;
        $url .= "?$paramstr";
    }

    my $res = $self->ua->get($url);
    Carp::croak $res->status_line . $res->content if not $res->is_success;
    return from_json $res->decoded_content;
}

sub _delete {
    my ($self, $path) = @_;

    my $url = "$API_URL/$path";
    my $res = $self->ua->delete($url);
    Carp::croak $res->status_line . $res->content if not $res->is_success;
    return from_json $res->decoded_content;
}

1;

__END__