Test::Valgrind::Command::Aggregate - A Test::Valgrind command that aggregates several other commands.

Test-Valgrind documentation Contained in the Test-Valgrind distribution.

Index

Code Index:

NAME

Top

Test::Valgrind::Command::Aggregate - A Test::Valgrind command that aggregates several other commands.

VERSION

Top

Version 1.12

DESCRIPTION

Top

This command groups several commands together, which the session will run under the same action.

METHODS

Top

This class inherits Test::Valgrind::Command.

new commands => \@commands, ...

commands

Read-only accessor for the commands option.

SEE ALSO

Top

Test::Valgrind, Test::Valgrind::Command.

AUTHOR

Top

Vincent Pit, <perl at profvince.com>, http://www.profvince.com.

You can contact me by mail or on irc.perl.org (vincent).

BUGS

Top

Please report any bugs or feature requests to bug-test-valgrind at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Valgrind. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Test::Valgrind::Command::Aggregate

COPYRIGHT & LICENSE

Top

Copyright 2009 Vincent Pit, all rights reserved.

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

Test-Valgrind documentation Contained in the Test-Valgrind distribution. 
package Test::Valgrind::Command::Aggregate;

use strict;
use warnings;


our $VERSION = '1.12';


use Scalar::Util ();

use base qw/Test::Valgrind::Command Test::Valgrind::Carp/;


my $all_cmds = sub {
 for (@{$_[0]}) {
  return 0 unless Scalar::Util::blessed($_)
                                         and $_->isa('Test::Valgrind::Command');
 }
 return 1;
};

sub new {
 my $class = shift;
 $class = ref($class) || $class;

 my %args = @_;

 my $cmds = delete $args{commands};
 $class->_croak('Invalid commands list')
                   unless $cmds and ref $cmds eq 'ARRAY' and $all_cmds->($cmds);

 my $self = bless $class->SUPER::new(), $class;

 $self->{commands} = [ @$cmds ];

 $self;
}


sub commands { @{$_[0]->{commands} || []} }


1; # End of Test::Valgrind::Command::Aggregate