File Coverage

blib/lib/WWW/SmartSheet.pm

Criterion	Covered	Total	%
statement	18	64	28.1
branch	0	6	0.0
condition			n/a
subroutine	6	18	33.3
pod	6	9	66.6
total	30	97	30.9

package WWW::SmartSheet;
use Moo;
use MooX::late;

our $VERSION = '0.01';

# Example error message, (status_line and content):
# 400 Bad Request{"errorCode":5026,"message":"Your account has reached the maximum number of sheets allowed for your trial. To save additional sheets, you must upgrade to a paid plan."}

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/1.1";
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_sheets {
	my ($self) = @_;

	my $all_sheets = $self->_get('sheets');
	$self->sheets($all_sheets);
	return $all_sheets;
}



# TODO how can I make sure that get_sheet is called if sheets is empty ? is that the lazy attribute?
sub get_columns {
	my ($self, $sheet_number) = @_;

	my $sheets = $self->sheets;
	$self->_get("sheet/$sheets->[$sheet_number]{id}/columns");
}


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

	$self->_post("sheet/$sheet_id/shares?sendEmail=true", {email => $email, accessLevel => $access_level});
}


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

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

sub delete_sheet {
	my ($self, $id) = @_;
	$self->_delete("sheet/$id");
}


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

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


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

	my $res = $self->ua->get("$API_URL/sheet/$sheet_id/columns");

	#_post("sheet/$sheet_id/rows", $rows)
}

sub get_sheet_by_id {
	my ($self, $id) = @_;
	my $data = $self->_get("sheet/$id");
	require WWW::SmartSheet::Sheet;
	WWW::SmartSheet::Sheet->new($data);
}

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

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

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

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

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

	my $url = "$API_URL/$path";
	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__