view release on metacpan or  search on metacpan

Scripting/Expose.pm  view on Meta::CPAN

sub is_valid_symbol {
  my $sym = shift;
  return $sym =~ /^[A-Za-z][A-Za-z0-9_]*$/ ? 1 : 0;
}

sub import {
  shift;
  die "Odd number of arguments in use\n" if(@_ & 1);
  my %args = (@_);

  my $pkg = (caller)[0];

  # Class name
  my $name = $pkg;
  $name = $args{as} if(exists $args{as});
  
  die "Undefined class name in '$pkg'\n" unless(defined $name);
  die "Empty class name in '$pkg'\n" if($name eq '');
  die "Unsupported class name '$name' in '$pkg'\n" unless(is_valid_symbol($name));
    
  # For categories