dan - The literal unread

  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

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.

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';

Kazuhiro Osawa <ko@yappo.ne.jp>

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