File Coverage

blib/lib/App/CLI/Command/Version.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	19	20	95.0

package App::CLI::Command::Version;

use strict;
use warnings;

use base qw/App::CLI::Command/;

=head1 NAME

App::CLI::Command::Version - Print a preformatted version string

=head1 SYNOPSIS

    package MyApp;
    use base qw(App::CLI App::CLI::Command);

    use constant alias => (
        '--version' => '+App::CLI::Command::Version',
          'version' => '+App::CLI::Command::Version',
        # Other aliases
    );

    # Your app now supports a default version command and option

=head1 DESCRIPTION

This is package provides a default C command modelled after
that of L. You can modify the default message by subclassing
this command and overriding its C method, or by modifying it with
eg. L.

=cut

sub run {
    my ($self) = shift;
    no strict 'refs';
    print sprintf "%s (%s) version %s (%s)\n",
      $self->app->prog_name, ref $self->app, $self->app->VERSION, $0;
}

1;