File Coverage

blib/lib/PITA/XML/Command.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch	3	6	50.0
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	46	52	88.4

package PITA::XML::Command;

=pod

=head1 NAME

PITA::XML::Command - An executed command, with stored output

=head1 SYNOPSIS

  # Create a command
  my $dist = PITA::XML::Request->new(
  	cmd    => 'perl Makefile.PL',
  	stdout => \"...",
  	stderr => \"...",
  	);

=head1 DESCRIPTION

C is an object for holding information about
a command executed during the installation process.

It holds the actual command, and the STDOUT and STDERR output.

=head1 METHODS

=cut

use 5.006;
use strict;
use Carp         ();
use Params::Util qw{ _SCALAR0 _STRING };

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.52';
}





#####################################################################
# Constructors and Accessors

=pod

=head2 new

The C constructor is used to create a new ::Command object.

It takes a set of key/value names params.

=over

=item cmd

The C param should contains the command that was executed,
as it was sent to the operating system, as as a plain string.

=item stdout

The C param should be the resulting output to C,
provided as a reference to a C string.

=item stderr

The C param should be the resulting output to C,
provided as a reference to a C string.

=back

Returns a new L object, or dies on error.

=cut

sub new {
	my $class = shift;
	my $self  = bless { @_ }, $class;

	# Check the object
	$self->_init;

	$self;
}

sub _init {
	my $self = shift;

	# Check the actual command string
	unless ( _STRING($self->{cmd}) ) {
		Carp::croak('Invalid or missing cmd');
	}

	# Check the STDOUT
	unless ( PITA::XML->_OUTPUT($self, 'stdout') ) {
		Carp::croak('Invalid or missing stdout');
	}

	# Check the STDERR
	unless ( PITA::XML->_OUTPUT($self, 'stderr') ) {
		Carp::croak('Invalid or missing stderr');
	}

	$self;
}

=pod

=head2 cmd

The C accessor returns the actual command sent to the system.

=cut

sub cmd {
	$_[0]->{cmd};
}

=pod

=head2 stdout

The C accessor returns the output of the command as a
C reference.

=cut

sub stdout {
	$_[0]->{stdout};
}

=pod

=head2 stderr

The C accessor returns the output of the command as a
C reference.

=cut

sub stderr {
	$_[0]->{stderr};
}

1;

=pod

=head1 SUPPORT

Bugs should be reported via the CPAN bug tracker at

L

For other issues, contact the author.

=head1 AUTHOR

Adam Kennedy [e-mail], L

=head1 SEE ALSO

L

The Perl Image-based Testing Architecture (L)

=head1 COPYRIGHT

Copyright 2005 - 2013 Adam Kennedy.

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.

=cut