File Coverage

blib/lib/bare.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	5	5	100.0
pod			n/a
total	33	36	91.6

#!/usr/bin/perl -w

use strict;
use warnings;

package bare;

our $VERSION = '0.02';

my %forbidden = map { $_ => 1 } qw(
  if else elsif unless while until for foreach continue redo
  q qq tr y m s qr qw qx
  defined delete do eval exists format glob goto grep last local
  map my next no our package print printf prototype redo require
  return scalar sort split study sub undef use
  given when break
);

sub import {
  my $class = shift;
  my $caller = caller;
  my $legal_var = $utf8::hint_bits && $^H & $utf8::hint_bits
                  ? qr/^[[:alpha:]_]\w{0,250}$/
                  : qr/^[a-z_][a-z0-9_]{0,250}$/i;
  no strict 'refs';
  foreach my $bare (@_) {
    die "cannot override $bare" if $forbidden{$bare};
    die "illegal name: $bare" if $bare !~ $legal_var;
    my $scalar;
    *{"${caller}::$bare"} = \$scalar;
    *{"${caller}::$bare"} = sub():lvalue{ ${"${caller}::$bare"} };
  }
}

1;

__END__