NAME

dan - The literal unread

SYNOPSIS

use dan;
print "foo"; # not displaying
no dan;
print "foo"; # foo

use dan the => 'Blogger';
print Dan the 'Blogger';

it is possible to solve it with force though there are utf8 pragma and no compatibility.

use utf8;
use dan force => 1;
print "foo"; # not displaying
no dan;
print "foo"; # foo

DESCRIPTION

dan is not Dan Kogai. dan the unread to literal strings.

it is a present for perl 20 years old and 5.10 release commemoration.

OPTIONS

cat_decode

use dan cat_decode => sub {
    my $str = shift;
    $str =~ s/Jcode/Encode/;
    $str;
};
print "Jcode";# Encode

or

use utf8;
use dan force => 1, cat_decode => sub {
    my $str = shift;
    $str =~ s/Jcode/Encode/;
    $str;
};
print "Jcode";# Encode

force

use utf8;
use dan force => 1;
print "foo"; # not displaying

the

use dan the => 'Blogger';
print Dan the 'Blogger';

AUTHOR

Kazuhiro Osawa <ko@yappo.ne.jp>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.