File Coverage

blib/lib/WebService/Cmis/AtomFeed/Objects.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::Objects;
2              
3             =head1 NAME
4              
5             WebService::Cmis::AtomFeed::Objects - a set of CMIS objects
6              
7             =head1 DESCRIPTION
8              
9             This is a result sets representing an atom feed of L.
10              
11             Parent-class: L
12              
13             =cut
14              
15 1     1   17226 use strict;
  1         5  
  1         64  
16 1     1   8 use warnings;
  1         2  
  1         39  
17              
18 1     1   73 use WebService::Cmis::AtomFeed ();
  0            
  0            
19             use WebService::Cmis::Object ();
20              
21             our @ISA = qw(WebService::Cmis::AtomFeed);
22              
23             =head1 METHODS
24              
25             =over 4
26              
27             =item newEntry(xmlDoc) -> $object
28              
29             returns a CMIS Object created by parsing the given XML fragment
30              
31             =cut
32              
33             sub newEntry {
34             my ($this, $xmlDoc) = @_;
35              
36             return unless defined $xmlDoc;
37             #print STDERR "### creating Object from\n".$xmlDoc->toString(1)."\n###\n";
38             return new WebService::Cmis::Object(repository=>$this->{repository}, xmlDoc=>$xmlDoc);
39             }
40              
41             =back
42              
43             =head1 COPYRIGHT AND LICENSE
44              
45             Copyright 2012-2013 Michael Daum
46              
47             This module is free software; you can redistribute it and/or modify it under
48             the same terms as Perl itself. See F.
49              
50             =cut
51              
52             1;