1 package autodie::exception::system;
5 use base 'autodie::exception';
10 my $PACKAGE = __PACKAGE__;
14 autodie::exception::system - Exceptions from autodying system().
19 use autodie qw(system);
26 say "Ooops! ",$E->caller," had problems: $@";
32 This is a L<autodie::exception> class for failures from the
35 Presently there is no way to interrogate an C<autodie::exception::system>
36 object for the command, exit status, and other information you'd expect
37 such an object to hold. The interface will be expanded to accommodate
43 my ($this, %args) = @_;
45 $this->{$PACKAGE}{message} = $args{message}
46 || croak "'message' arg not supplied to autodie::exception::system->new";
48 return $this->SUPER::_init(%args);
54 When stringified, C<autodie::exception::system> objects currently
55 use the message generated by L<IPC::System::Simple>.
63 return $this->{$PACKAGE}{message} . $this->add_file_and_line;
73 Copyright (C)2008 Paul Fenwick
75 This is free software. You may modify and/or redistribute this
76 code under the same terms as Perl 5.10 itself, or, at your option,
77 any later version of Perl 5.
81 Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>