File Coverage

blib/lib/WebService/Cmis/ACE.pm
Criterion Covered Total %
statement 6 16 37.5
branch 0 2 0.0
condition n/a
subroutine 2 4 50.0
pod 2 2 100.0
total 10 24 41.6


line stmt bran cond sub pod time code
1             package WebService::Cmis::ACE;
2              
3             =head1 NAME
4              
5             WebService::Cmis::ACE
6              
7             Representation of a cmis ACE object
8              
9             =head1 SYNOPSIS
10              
11             =head1 DESCRIPTION
12              
13             =cut
14              
15 1     1   4184 use strict;
  1         3  
  1         35  
16 1     1   6 use warnings;
  1         39  
  1         209  
17              
18             =head1 METHODS
19              
20             =over 4
21              
22             =item new()
23              
24             my $ace = new WebService::Cmis::ACE(
25             principalId => 'jdoe',
26             permissions => ['cmis:write'],
27             direct => 'true',
28             );
29              
30             =cut
31              
32             sub new {
33 0     0 1   my $class = shift;
34              
35 0           my $this = bless({ @_ }, $class);
36              
37 0 0         unless (ref($this->{permissions})) {
38 0           $this->{permissions} = [$this->{permissions}];
39             }
40              
41 0           return $this;
42             }
43              
44             =item toString()
45              
46             return a string representation of this object
47              
48             =cut
49              
50             sub toString {
51 0     0 1   my $this = shift;
52              
53 0           my $result = $this->{principalId}." is allowed to ";
54 0           $result .= join(", ", sort @{$this->{permissions}});
  0            
55 0           $result .= " (direct=".$this->{direct}.")";
56             }
57              
58             =back
59              
60             =head1 COPYRIGHT AND LICENSE
61              
62             Copyright 2012-2013 Michael Daum
63              
64             This module is free software; you can redistribute it and/or modify it under
65             the same terms as Perl itself. See F.
66              
67             =cut
68              
69             1;