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   27010 use strict;
  1         1  
  1         35  
4 1     1   3 use Carp;
  1         1  
  1         305  
5              
6             our $VERSION = '0.10';
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__