File Coverage

lib/Win32/PowerPoint/Constants.pm
Criterion Covered Total %
statement 6 19 31.5
branch 0 6 0.0
condition n/a
subroutine 2 5 40.0
pod 1 1 100.0
total 9 31 29.0


line stmt bran cond sub pod time code
1             package Win32::PowerPoint::Constants;
2            
3 1     1   966 use strict;
  1         1  
  1         33  
4 1     1   5 use Carp;
  1         1  
  1         488  
5            
6             our $VERSION = '0.09';
7            
8             our $AUTOLOAD;
9            
10             sub new {
11 0     0 1   my $class = shift;
12 0           bless {
13            
14             # ppSlideLayout
15             ppLayoutBlank => 12,
16             ppLayoutText => 2,
17             ppLayoutTitle => 1,
18            
19             # ppAutoSize
20             ppAutoSizeNone => 0,
21             ppAutoSizeShapeToFitText => 1,
22             ppAutoSizeMixed => -2,
23            
24             # ppSaveAsFileType
25             ppSaveAsPresentation => 1,
26             ppSaveAsShow => 7,
27            
28             # ppParagraphAlignment
29             ppAlignLeft => 1,
30             ppAlignCenter => 2,
31             ppAlignRight => 3,
32             ppAlignJustitfy => 4,
33             ppAlignDistribute => 5,
34             ppAlignmentMixed => -2,
35            
36             # ppMouseActivation
37             ppMouseClick => 1,
38             ppMouseOver => 2,
39            
40             # ppDateTimeFormat
41             ppDateTimeMdyy => 1,
42             ppDateTimeddddMMMMddyyyy => 2,
43             ppDateTimedMMMMyyyy => 3,
44             ppDateTimeMMMMdyyyy => 4,
45             ppDateTimedMMMyy => 5,
46             ppDateTimeMMMMyy => 6,
47             ppDateTimeMMyy => 7,
48             ppDateTimeMMddyyHmm => 8,
49             ppDateTimeMMddyyhmmAMPM => 9,
50             ppDateTimeHmm => 10,
51             ppDateTimeHmmss => 11,
52             ppDateTimehmmAMPM => 12,
53             ppDateTimehmmssAMPM => 13,
54             ppDateTimeFormatMixed => -2,
55            
56             # msoPatternType
57             msoPattern10Percent => 2,
58             msoPattern20Percent => 3,
59             msoPattern25Percent => 4,
60             msoPattern30Percent => 5,
61             msoPattern40Percent => 6,
62             msoPattern50Percent => 7,
63             msoPattern5Percent => 1,
64             msoPattern60Percent => 8,
65             msoPattern70Percent => 9,
66             msoPattern75Percent => 10,
67             msoPattern80Percent => 11,
68             msoPattern90Percent => 12,
69             msoPatternDarkDownwardDiagonal => 15,
70             msoPatternDarkHorizontal => 13,
71             msoPatternDarkUpwardDiagonal => 16,
72             msoPatternDarkVertical => 14,
73             msoPatternDashedDownwardDiagonal => 28,
74             msoPatternDashedHorizontal => 32,
75             msoPatternDashedUpwardDiagonal => 27,
76             msoPatternDashedVertical => 31,
77             msoPatternDiagonalBrick => 40,
78             msoPatternDivot => 46,
79             msoPatternDottedDiamond => 24,
80             msoPatternDottedGrid => 45,
81             msoPatternHorizontalBrick => 35,
82             msoPatternLargeCheckerBoard => 36,
83             msoPatternLargeConfetti => 33,
84             msoPatternLargeGrid => 34,
85             msoPatternLightDownwardDiagonal => 21,
86             msoPatternLightHorizontal => 19,
87             msoPatternLightUpwardDiagonal => 22,
88             msoPatternLightVertical => 20,
89             msoPatternMixed => -2,
90             msoPatternNarrowHorizontal => 30,
91             msoPatternNarrowVertical => 29,
92             msoPatternOutlinedDiamond => 41,
93             msoPatternPlaid => 42,
94             msoPatternShingle => 47,
95             msoPatternSmallCheckerBoard => 17,
96             msoPatternSmallConfetti => 37,
97             msoPatternSmallGrid => 23,
98             msoPatternSolidDiamond => 39,
99             msoPatternSphere => 43,
100             msoPatternTrellis => 18,
101             msoPatternWave => 48,
102             msoPatternWeave => 44,
103             msoPatternWideDownwardDiagonal => 25,
104             msoPatternWideUpwardDiagonal => 26,
105             msoPatternZigZag => 38,
106            
107             # msoTextOrientation
108             msoTextOrientationHorizontal => 1,
109            
110             # msoTriState
111             msoTrue => -1,
112             msoFalse => 0,
113            
114             }, $class;
115             }
116            
117             sub AUTOLOAD {
118 0     0     my $self = shift;
119 0           my $name = $AUTOLOAD;
120 0           $name =~ s/.*://;
121 0 0         if (exists $self->{$name}) { return $self->{$name}; }
  0            
122 0 0         if (exists $self->{"pp$name"}) { return $self->{"pp$name"}; }
  0            
123 0 0         if (exists $self->{"mso$name"}) { return $self->{"mso$name"}; }
  0            
124 0           croak "constant $name does not exist";
125             }
126            
127 0     0     sub DESTROY {}
128            
129             1;
130             __END__