package Foo;
require bytes; # make sure the module is loaded without (un)import

$bytes = 0;    # flag: whether bytes should be enforced
$evalled = 0;  # flag: whether rest of source has been compiled

sub import {
    unless ($evalled++) {               # we haven't evalled the rest 
+before
        $bytes = ($_[1] eq "usebytes"); # should bytes be enforced?
        local $/;                       # enable slurp mode
        eval <DATA>;                    # compile rest of source (afte
+r __DATA__)
        die $@ if $@;                   # die now if an error occurred
    }
};
1;                              # in order for require of Foo.pm to be
+ successful
__DATA__                        # actual source of module starts here
BEGIN {bytes->import if $bytes} # activate bytes if flag set
sub new { bless {},shift }      # example routine
[download]

use Foo 'usebytes'; # or something else to not use bytes
my $foo = Foo->new;
[download]

Liz

Yes, that's exactly what I need. And it also shows a very interesting feature of perl - I never thought about evaling <DATA>, so ++. Also I always think of eval BLOCK while there's also an eval EXPR that I always forget.
Thanks.

Note that a single script can't safely use your module twice. This means that any modules that try to use your module can't be safely used with any other such modules. I don't know what your module does, but it seems quite unfortunate to me.

I'd probably have three packages. Here is a simplistic example:

package Your::Module::Bytes;
use bytes;
do $INC{"Your/Module.pm"} . ".pl";
1;
[download]

and

package Your::Module::Unicode;
no bytes;
do $INC{"Your/Module.pm"} . ".pl";
1;
[download]

and

package Your::Module;
sub import {
    # require the desired submodule
    # dispatch import to that submodule
}
[download]

Note, I'd have to test to make sure that 'use bytes' affects the code included via do, but I believe that it does.

I'm also a bit curious what particular effect of 'use bytes' you need. I thought that such was mostly of use for the earliest versions of Perl Unicode support.

                - tye