File Coverage

blib/lib/CanvasCloud/API/Account.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package CanvasCloud::API::Account;
2             $CanvasCloud::API::Account::VERSION = '0.007';
3             # ABSTRACT: extends L<CanvasCloud::API>
4              
5 5     5   3667 use Moose;
  5         471000  
  5         35  
6 5     5   34973 use namespace::autoclean;
  5         8367  
  5         32  
7              
8             extends 'CanvasCloud::API';
9              
10              
11             has account_id => ( is => 'ro', required => 1 );
12              
13              
14             augment 'uri' => sub {
15             my $self = shift;
16             my $rest = inner() || '';
17             $rest = '/' if ( defined $rest && $rest && $rest !~ /^\// );
18             return sprintf( '/accounts/%s', $self->account_id ) . $rest;
19             };
20              
21             __PACKAGE__->meta->make_immutable;
22              
23             1;
24              
25             __END__
26              
27             =pod
28              
29             =encoding UTF-8
30              
31             =head1 NAME
32              
33             CanvasCloud::API::Account - extends L<CanvasCloud::API>
34              
35             =head1 VERSION
36              
37             version 0.007
38              
39             =head1 ATTRIBUTES
40              
41             =head2 account_id
42              
43             I<required:> set to the account id for Canvas call
44              
45             =head2 uri
46              
47             augments base uri to append '/accounts/account_id'
48              
49             =head1 AUTHOR
50              
51             Ted Katseres
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             This software is copyright (c) 2019 by Ted Katseres.
56              
57             This is free software; you can redistribute it and/or modify it under
58             the same terms as the Perl 5 programming language system itself.
59              
60             =cut