1package ExtUtils::MakeMaker::bytes; 2 3use vars qw($VERSION); 4$VERSION = 0.01; 5 6my $Have_Bytes = eval q{require bytes; 1;}; 7 8sub import { 9 return unless $Have_Bytes; 10 11 shift; 12 unshift @_, 'bytes'; 13 14 goto &bytes::import; 15} 16 171; 18 19 20=head1 NAME 21 22ExtUtils::MakeMaker::bytes - Version agnostic bytes.pm 23 24=head1 SYNOPSIS 25 26 use just like bytes.pm 27 28=head1 DESCRIPTION 29 30bytes.pm was introduced with 5.6. This means any code which has 'use 31bytes' in it won't even compile on 5.5.X. Since bytes is a lexical 32pragma and must be used at compile time we can't simply wrap it in 33a BEGIN { eval 'use bytes' } block. 34 35ExtUtils::MakeMaker::bytes is just a very thin wrapper around bytes 36which works just like it when bytes.pm exists and everywhere else it 37does nothing. 38 39=cut 40