File Coverage

blib/lib/Mail/Exchange/ObjectTypes.pm
Criterion Covered Total %
statement 19 25 76.0
branch n/a
condition n/a
subroutine 7 13 53.8
pod 0 7 0.0
total 26 45 57.7


line stmt bran cond sub pod time code
1             package Mail::Exchange::ObjectTypes;
2             # From MS-OXCPRPT V20120630 2.2.1.7
3              
4             =head1 NAME
5              
6             Mail::Exchange::ObjectTypes - enum functions for the various kinds of
7             objects that may be stored in a PidTagObjectType property
8              
9             =head1 SYNOPSIS
10             use Mail::Exchange::ObjectTypes;
11              
12             Including this module allows you to use names like otMailUser or
13             otAttachment for the various object types defined in [MS-OXCPRPT]
14             section 2.2.1.7.
15              
16             =head1 REFERENCES
17              
18             [MS-OXCPRPT] Property and Stream Object Protocol specification
19             http://msdn.microsoft.com/en-us/library/cc425503(v=exchg.80).aspx
20             on Sep 30, 2012
21             =cut
22              
23 5     5   31 use strict;
  5         9  
  5         182  
24 5     5   29 use warnings;
  5         12  
  5         152  
25 5     5   105 use 5.008;
  5         19  
  5         191  
26              
27 5     5   24 use Exporter;
  5         9  
  5         187  
28 5     5   27 use Encode;
  5         9  
  5         432  
29              
30 5     5   26 use vars qw($VERSION @ISA @EXPORT);
  5         12  
  5         1006  
31             @ISA=qw(Exporter);
32             $VERSION = "0.01";
33              
34             @EXPORT=qw(otStoreObject otAddressBookObject otAddressBookContainer
35             otMessageObject otMailUser otAttachment otDistributionList
36             );
37              
38 0     0 0 0 sub otStoreObject {return 0x0001 ;}
39 0     0 0 0 sub otAddressBookObject {return 0x0002 ;}
40 0     0 0 0 sub otAddressBookContainer {return 0x0004 ;}
41 0     0 0 0 sub otMessageObject {return 0x0005 ;}
42 1     1 0 5 sub otMailUser {return 0x0006 ;}
43 0     0 0   sub otAttachment {return 0x0007 ;}
44 0     0 0   sub otDistributionList {return 0x0008 ;}
45              
46             1;