Changeset 11998 for lang/perl/dan

Timestamp:

05/19/08 23:03:25 (5 years ago)

Author:

yappo

Message:

Dan the 'support'

Location:

lang/perl/dan/trunk

Files:

• lib/dan.pm (modified) (1 diff)
• t/06_dan_the.t (added)

lang/perl/dan/trunk/lib/dan.pm

@@ -22 +22 @@
 my $DEFAULT_UTF8HINTBITS;
 my $utf8_hint_bits = 0x00800000;
+my $is_DanThe;
 
 sub import {
     my($class, %opts) = @_;
+
+    if (exists $opts{the} && !$is_DanThe) {
+        eval "package the; sub Dan { shift; return wantarray ? \@_ : \$_[0] } 1;";
+        $is_DanThe++;
+        return;
+    }
 
     if (ref($opts{cat_decode} || '') eq 'CODE' && ! exists $opts{decode}) {