| Commit | Line | Data |
|---|
| 0b09a93a |
1 | package autodie::exception::system; |
| 2 | use 5.008; |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | use base 'autodie::exception'; |
| 6 | use Carp qw(croak); |
| 7 | |
| 7840a289 |
8 | our $VERSION = '2.06_01'; |
| 0b09a93a |
9 | |
| 10 | my $PACKAGE = __PACKAGE__; |
| 11 | |
| 12 | =head1 NAME |
| 13 | |
| 14 | autodie::exception::system - Exceptions from autodying system(). |
| 15 | |
| 16 | =head1 SYNOPSIS |
| 17 | |
| 18 | eval { |
| db4e6d09 |
19 | use autodie qw(system); |
| 0b09a93a |
20 | |
| 21 | system($cmd, @args); |
| 22 | |
| 23 | }; |
| 24 | |
| 25 | if (my $E = $@) { |
| 26 | say "Ooops! ",$E->caller," had problems: $@"; |
| 27 | } |
| 28 | |
| 29 | |
| 30 | =head1 DESCRIPTION |
| 31 | |
| 32 | This is a L<autodie::exception> class for failures from the |
| 33 | C<system> command. |
| 34 | |
| 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 |
| 38 | this in the future. |
| 39 | |
| 40 | =cut |
| 41 | |
| 42 | sub _init { |
| 43 | my ($this, %args) = @_; |
| 44 | |
| 45 | $this->{$PACKAGE}{message} = $args{message} |
| 46 | || croak "'message' arg not supplied to autodie::exception::system->new"; |
| 47 | |
| 48 | return $this->SUPER::_init(%args); |
| 49 | |
| 50 | } |
| 51 | |
| 52 | =head2 stringify |
| 53 | |
| 54 | When stringified, C<autodie::exception::system> objects currently |
| 55 | use the message generated by L<IPC::System::Simple>. |
| 56 | |
| 57 | =cut |
| 58 | |
| 59 | sub stringify { |
| 60 | |
| 61 | my ($this) = @_; |
| 62 | |
| 63 | return $this->{$PACKAGE}{message} . $this->add_file_and_line; |
| 64 | |
| 65 | } |
| 66 | |
| 67 | 1; |
| 68 | |
| 69 | __END__ |
| 70 | |
| 71 | =head1 LICENSE |
| 72 | |
| 73 | Copyright (C)2008 Paul Fenwick |
| 74 | |
| 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. |
| 78 | |
| 79 | =head1 AUTHOR |
| 80 | |
| 81 | Paul Fenwick E<lt>pjf@perltraining.com.auE<gt> |
projects / p5sagit/p5-mst-13.2.git / blame