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

#!/usr/bin/perl
######################
#
#    Copyright (C) 2011 - 2015 TU Clausthal, Institut fuer Maschinenwesen, Joachim Langenbach
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see .
#
######################

# Pod::Weaver infos
# 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.

use strict;
use warnings;

package CAD::Firemen;
{
  $CAD::Firemen::VERSION = '0.7.2';
}

use CAD::Firemen::Analyze;
use CAD::Firemen::Change;
use CAD::Firemen::Change::Type;
use CAD::Firemen::Common qw(maxLength);
use CAD::Firemen::Load;
use CAD::Firemen::Option::Check;
use CAD::Firemen::ParseHelp::Wildfire5;
use CAD::Firemen::ParseHelp::Creo3;

sub printVersion {
  my %versions = ();
  $versions{'CAD::Firemen'} = $CAD::Firemen::VERSION;
  $versions{'CAD::Firemen::Analyze'} = $CAD::Firemen::Analyze::VERSION;
  $versions{'CAD::Firemen::Change'} = $CAD::Firemen::Change::VERSION;
  $versions{'CAD::Firemen::Change::Type'} = $CAD::Firemen::Change::Type::VERSION;
  $versions{'CAD::Firemen::Common'} = $CAD::Firemen::Common::VERSION;
  $versions{'CAD::Firemen::Load'} = $CAD::Firemen::Load::VERSION;
  $versions{'CAD::Firemen::Option::Check'} = $CAD::Firemen::Option::Check::VERSION;
  $versions{'CAD::Firemen::ParseHelp::Wildfire5'} = $CAD::Firemen::ParseHelp::Wildfire5::VERSION;
  $versions{'CAD::Firemen::ParseHelp::Creo3'} = $CAD::Firemen::ParseHelp::Creo3::VERSION;

  print "The version of the bundled firefighters and modules are:\n";
  my $max = maxLength(keys(%versions)) + 2;
  foreach my $name (sort(keys(%versions))){
    print sprintf("%-". $max ."s", $name) . $versions{$name} ."\n";
  }
  exit 0;
}

1;

__END__