File Coverage

blib/lib/Sed.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	18	94.4

package Sed;

# -------------------------------------------------------------------
#
# $Id: Sed.pm,v 1.11 2002/01/23 13:16:17 dlc Exp $
#
# -------------------------------------------------------------------
#   Sed - A sed(1)-like stream editor
#
#   Copyright (C) 2001 darren chamberlain
#
#   This is free software; you can redistribute it and/or modify it
#   under the same terms as Perl itself.
#
#   This software is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this software. If not, write to the Free Software
#   Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
# -------------------------------------------------------------------

use strict;
use vars qw($VERSION @EXPORT);

require Exporter;
use base qw(Exporter);
@EXPORT  = qw(sed);
$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/;

sub sed (&$) {
    my $sub = shift;
    local $_ = shift;
    &$sub;
    return $_;
}


1;
__END__