File Coverage

blib/lib/WebService/Cmis/Property/Decimal.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition 0 2 0.0
subroutine 4 5 80.0
pod 1 1 100.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             package WebService::Cmis::Property::Decimal;
2              
3             =head1 NAME
4              
5             WebService::Cmis::Property::Decimal
6              
7             Representation of a propertyDecimal of a cmis object
8              
9             =head1 SYNOPSIS
10              
11             =head1 DESCRIPTION
12              
13             =cut
14              
15 1     1   29684 use strict;
  1         2  
  1         45  
16 1     1   6 use warnings;
  1         2  
  1         33  
17 1     1   5 use WebService::Cmis::Property ();
  1         2  
  1         14  
18 1     1   1012 use POSIX ();
  1         7482  
  1         111  
19             our @ISA = qw(WebService::Cmis::Property);
20              
21             =head1 METHODS
22              
23             =over 4
24              
25             =item parse($string) -> $decimal
26              
27             convert the given string into a decimal
28              
29             =cut
30              
31             sub parse {
32 0   0 0 1   return POSIX::strtod($_[1]||'');
33             }
34              
35             =back
36              
37             =head1 COPYRIGHT AND LICENSE
38              
39             Copyright 2012-2013 Michael Daum
40              
41             This module is free software; you can redistribute it and/or modify it under
42             the same terms as Perl itself. See F.
43              
44             =cut
45              
46             1;