File Coverage

blib/lib/bitflags.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	5	6	83.3
condition			n/a
subroutine	3	4	75.0
pod			n/a
total	25	30	83.3

package bitflags;

use strict;

my $i = .5;


sub import {
  my $self = shift;
  my $caller = (caller)[0];

  if ($_[0] =~ /^:start=(\^?)(\d+)$/) {
    if ($1) { $i = 2 ** ($2-1) }
    elsif ($2 & ($2 - 1)) {
      require Carp;
      Carp::croak("$2 is not a power of two");
    }
    else { $i = $2/2 }
    shift;
  }

  no strict 'refs';
  for (@_) {
    my $j = ($i *= 2);
    *{"${caller}::$_"} = sub () { $j };
  }
}


1;

__END__