view release on metacpan or  search on metacpan

lib/App/cdif/Command.pm  view on Meta::CPAN

	    if ($k eq 'read_error') {
		$obj->SUPER::option(stderr => $v ? 'redirect' : undef);
	    } else {
		$obj->SUPER::option($k => $v);
	    }
	}
	return $obj;
    }
}

# Compatibility: return INPUT filehandle
sub stdin {
    my $obj = shift;
    $obj->{INPUT};
}

# Compatibility: setstdin method
sub setstdin {
    my $obj = shift;
    $obj->with(stdin => shift);
}

1;

lib/App/cdif/Command.pm  view on Meta::CPAN

=head1 COMPATIBILITY

The following compatibility features are provided:

=over 4

=item * B<command> method accepts array references and expands them

=item * B<read_error> option is mapped to C<stderr =E<gt> 'redirect'>

=item * B<stdin> method returns the internal INPUT filehandle

=item * B<setstdin> method is mapped to C<with(stdin =E<gt> ...)>

=back

=head1 SEE ALSO

L<Command::Run>

=cut