view release on metacpan or  search on metacpan

lib/App/Bernard.pm  view on Meta::CPAN

    }

    exit if scalar(@ARGV)==0;
}

################################################################


sub execute {

    binmode STDOUT, ":utf8";

    parse_command_line();

    if ($settings{'script'} eq 'latn') {
	$settings{'transliterate'} = sub {
	    my ($text) = @_;
	    return $text;
	};
    } else {
	my $leas = Lingua::EN::Alphabet::Shaw->new();

lib/App/Bernard/Magic/Fuzzaccept.pm  view on Meta::CPAN

    return bless {};
}

sub handle {

    my ($self, $settings) = @_;

    if ($settings->{'output'}) {
	open OUTPUT, ">$settings->{'output'}"
	    or die "Can't open $settings->{'output'}: $!";
	binmode OUTPUT, ":utf8";
    }

    $settings->{'print'} = sub {
	my ($text) = @_;

	if ($settings->{'output'}) {
	    print OUTPUT $text;
	} else {
	    print $text;
	}

lib/App/Bernard/Magic/Single.pm  view on Meta::CPAN

    }
}

sub handle {

    my ($self, $settings) = @_;

    if ($settings->{'output'}) {
	open OUTPUT, ">$settings->{'output'}"
	    or die "Can't open $settings->{'output'}: $!";
	binmode OUTPUT, ":utf8";
    }

    $settings->{'print'} = sub {
	my ($text) = @_;

	if ($settings->{'output'}) {
	    print OUTPUT $text;
	} else {
	    print $text;
	}