File Coverage

blib/lib/CAD/Firemen.pm
Criterion Covered Total %
statement 25 27 92.5
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 34 36 94.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             ######################
3             #
4             # Copyright (C) 2011 - 2015 TU Clausthal, Institut fuer Maschinenwesen, Joachim Langenbach
5             #
6             # This program is free software: you can redistribute it and/or modify
7             # it under the terms of the GNU General Public License as published by
8             # the Free Software Foundation, either version 3 of the License, or
9             # (at your option) any later version.
10             #
11             # This program is distributed in the hope that it will be useful,
12             # but WITHOUT ANY WARRANTY; without even the implied warranty of
13             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14             # GNU General Public License for more details.
15             #
16             # You should have received a copy of the GNU General Public License
17             # along with this program. If not, see .
18             #
19             ######################
20              
21             # Pod::Weaver infos
22             # ABSTRACT: Scripts and Modules to manage PTC(R) ProE/Engineer(R) / Creo(TM) configurations. Use perldoc CAD::Firemen to get an introduction to the usage of this distribution.
23              
24 1     1   19317 use strict;
  1         3  
  1         22  
25 1     1   5 use warnings;
  1         2  
  1         49  
26              
27             package CAD::Firemen;
28             {
29             $CAD::Firemen::VERSION = '0.7.0';
30             }
31              
32 1     1   523 use CAD::Firemen::Analyze;
  1         3  
  1         41  
33 1     1   6 use CAD::Firemen::Change;
  1         1  
  1         31  
34 1     1   5 use CAD::Firemen::Change::Type;
  1         1  
  1         32  
35 1     1   4 use CAD::Firemen::Common qw(maxLength);
  1         2  
  1         37  
36 1     1   5 use CAD::Firemen::Load;
  1         1  
  1         27  
37 1     1   4 use CAD::Firemen::Option::Check;
  1         2  
  1         26  
38 1     1   499 use CAD::Firemen::ParseHelp::Wildfire5;
  0            
  0            
39             use CAD::Firemen::ParseHelp::Creo3;
40              
41             sub printVersion {
42             my %versions = ();
43             $versions{'CAD::Firemen'} = $CAD::Firemen::VERSION;
44             $versions{'CAD::Firemen::Analyze'} = $CAD::Firemen::Analyze::VERSION;
45             $versions{'CAD::Firemen::Change'} = $CAD::Firemen::Change::VERSION;
46             $versions{'CAD::Firemen::Change::Type'} = $CAD::Firemen::Change::Type::VERSION;
47             $versions{'CAD::Firemen::Common'} = $CAD::Firemen::Common::VERSION;
48             $versions{'CAD::Firemen::Load'} = $CAD::Firemen::Load::VERSION;
49             $versions{'CAD::Firemen::Option::Check'} = $CAD::Firemen::Option::Check::VERSION;
50             $versions{'CAD::Firemen::ParseHelp::Wildfire5'} = $CAD::Firemen::ParseHelp::Wildfire5::VERSION;
51             $versions{'CAD::Firemen::ParseHelp::Creo3'} = $CAD::Firemen::ParseHelp::Creo3::VERSION;
52              
53             print "The version of the bundled firefighters and modules are:\n";
54             my $max = maxLength(keys(%versions)) + 2;
55             foreach my $name (sort(keys(%versions))){
56             print sprintf("%-". $max ."s", $name) . $versions{$name} ."\n";
57             }
58             exit 0;
59             }
60              
61             1;
62              
63             __END__