File Coverage

blib/lib/WebService/Cmis/AtomFeed/ObjectTypes.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package WebService::Cmis::AtomFeed::ObjectTypes;
2              
3             =head1 NAME
4              
5             WebService::Cmis::AtomFeed::ObjectTypes
6              
7             =head1 SYNOPSIS
8              
9             This is a Result sets representing an atom feed of CMIS ObjectTypes.
10              
11             =head1 DESCRIPTION
12              
13             =cut
14              
15 1     1   4461 use strict;
  1         2  
  1         45  
16 1     1   7 use warnings;
  1         2  
  1         37  
17 1     1   62 use WebService::Cmis::AtomFeed ();
  0            
  0            
18             use WebService::Cmis::ObjectType ();
19              
20             our @ISA = qw(WebService::Cmis::AtomFeed);
21              
22             =head1 METHODS
23              
24             =over 4
25              
26             =item newEntry(xmlDoc) -> $object
27              
28             returns a CMIS ObjectType created by parsing the given XML fragment
29              
30             =cut
31              
32             sub newEntry {
33             my ($this, $xmlDoc) = @_;
34              
35             return unless defined $xmlDoc;
36             return new WebService::Cmis::ObjectType(repository=>$this->{repository}, xmlDoc=>$xmlDoc);
37             }
38              
39             =back
40              
41             =head1 AUTHOR
42              
43             Michael Daum C<< >>
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             Copyright 2012-2013 Michael Daum
48              
49             This module is free software; you can redistribute it and/or modify it under
50             the same terms as Perl itself. See F.
51              
52             =cut
53              
54             1;