File Coverage

blib/lib/Ogre/BetaGUI.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 Ogre::BetaGUI;
2              
3 1     1   20440 use strict;
  1         2  
  1         40  
4 1     1   6 use warnings;
  1         1  
  1         55  
5              
6             our $VERSION = '0.04';
7              
8 1     1   376 use Ogre 0.36; # can only be used in an Ogre app
  0            
  0            
9              
10              
11             # the rest is for exporting the constants of the 'wt' enum (not really even used...)
12              
13             require Exporter;
14             unshift @Ogre::BetaGUI::ISA, 'Exporter';
15              
16             use constant {
17             NONE => 0,
18             MOVE => 1,
19             RESIZE => 2,
20             RESIZE_AND_MOVE => 3,
21             };
22              
23             our %EXPORT_TAGS = (
24             wt => [qw(NONE MOVE RESIZE RESIZE_AND_MOVE)],
25             );
26             $EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ];
27             our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
28             our @EXPORT = ();
29              
30              
31             1;