1 package Test::Valgrind::Command::Aggregate;
8 Test::Valgrind::Command::Aggregate - A Test::Valgrind command that aggregates several other commands.
16 our $VERSION = '1.01';
24 use base qw/Test::Valgrind::Command Test::Valgrind::Carp/;
28 This class inherits L<Test::Valgrind::Command>.
30 =head2 C<< new commands => \@commands, ... >>
36 return 0 unless Scalar::Util::blessed($_)
37 and $_->isa('Test::Valgrind::Command');
44 $class = ref($class) || $class;
48 my $cmds = delete $args{commands};
49 $class->_croak('Invalid commands list')
50 unless $cmds and ref $cmds eq 'ARRAY' and $all_cmds->($cmds);
52 my $self = bless $class->SUPER::new(), $class;
54 $self->{commands} = [ @$cmds ];
61 Read-only accessor for the C<commands> option.
65 sub commands { @{$_[0]->{commands} || []} }
69 L<Test::Valgrind>, L<Test::Valgrind::Command>.
73 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
75 You can contact me by mail or on C<irc.perl.org> (vincent).
79 Please report any bugs or feature requests to C<bug-test-valgrind at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Valgrind>.
80 I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
84 You can find documentation for this module with the perldoc command.
86 perldoc Test::Valgrind::Command::Aggregate
88 =head1 COPYRIGHT & LICENSE
90 Copyright 2009 Vincent Pit, all rights reserved.
92 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
96 1; # End of Test::Valgrind::Command::Aggregate