Features/Perl5Debugger: ExSewi.pm

package ExSewi;

use 5.010;
use strict;
use warnings;

our $VERSION = '0.01';

use base 'Exporter';
our @EXPORT_OK = qw(wh eh);

sub wh {

    my $fred = 'bloggs two';

    #bp 19-20 this is 18
    say 'running wh';
    say $_[0];

    $_ = "He's out bowling with Barney tonight.";
    s/Barney/Fred/; # Replace Barney with Fred
    s/\w+$/($`!)$&/;
    say $_;

    return;
}

sub eh {
    my $fred = $_[0];
    $_[0] = 'not fred';
    say $fred;
    return;
}

1;