BEGIN { $Y::VERSION = 0.1 }

{
  package X;
  use if ( $Y::VERSION < 1 ), "bytes";

  sub l { return length shift }
}

no bytes;

print X::l( chr 3456 );

__output__
3