File Coverage

blib/lib/App/CLI/Extension/Component/OriginalArgv.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	2	0.0
total	37	42	88.1

package App::CLI::Extension::Component::OriginalArgv;

=pod

=head1 NAME

App::CLI::Extension::Component::OriginalArgv - for App::CLI::Extension original argv module

=head1 VERSION

1.421

=cut

use strict;
use base qw(Class::Accessor::Grouped);
use FindBin qw($Bin $Script);
use File::Spec;

our $VERSION  = '1.421';

__PACKAGE__->mk_group_accessors(inherited => "_orig_argv", "argv0", "full_argv0");
__PACKAGE__->argv0($Script);
__PACKAGE__->full_argv0(File::Spec->catfile($Bin, $Script));


sub orig_argv {

	my $self = shift;

	my @array;
	if(scalar(@_) == 1 && ref($_[0]) eq "ARRAY"){
		@array = @{$_[0]};
	} elsif(scalar(@_) > 0) {
		@array = @_;
	}

	if (scalar(@array) > 0) {
		$self->_orig_argv(\@array);
	}
	return $self->_orig_argv;
}

sub cmdline {

	my $self    = shift;
	my $cmdline = join " ", $self->full_argv0, @{$self->orig_argv};
	return $cmdline;
}


1;

__END__