File Coverage

blib/lib/DBIx/Changeset/App/Command/version.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 23 27 85.1


line stmt bran cond sub pod time code
1             package DBIx::Changeset::App::Command::version;
2              
3 2     2   12413 use warnings;
  2         6  
  2         85  
4 2     2   13 use strict;
  2         4  
  2         84  
5              
6 2     2   15 use base qw/DBIx::Changeset::App::BaseCommand/;
  2         4  
  2         234  
7              
8 2     2   17 use DBIx::Changeset;
  2         4  
  2         48  
9              
10 2     2   81 use vars qw{$VERSION};
  2         5  
  2         112  
11             BEGIN {
12 2     2   185 $VERSION = '1.11';
13             }
14              
15             =head1 NAME
16              
17             DBIx::Changeset::App::Command::version - display version information
18              
19             =head1 SYNOPSIS
20              
21             =head1 METHODS
22              
23             =head2 run
24              
25             =cut
26             sub run {
27 0     0 1   my ($self, $opt, $args) = @_;
28            
29 0           printf ("Using DBIx::ChangeSet %s\n\n", $DBIx::Changeset::VERSION);
30              
31 0           return;
32             }
33              
34             =head1 COPYRIGHT & LICENSE
35              
36             Copyright 2004-2008 Grox Pty Ltd.
37              
38             This program is free software; you can redistribute it and/or modify it
39             under the same terms as Perl itself.
40              
41             The full text of the license can be found in the LICENSE file included with this module.
42              
43             =cut
44              
45             1; # End of DBIx::Changeset