]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
We don't need $fqn in enable()/disable()
authorVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 20:33:34 +0000 (21:33 +0100)
committerVincent Pit <vince@profvince.com>
Sat, 2 Jan 2010 20:33:34 +0000 (21:33 +0100)
lib/Sub/Op.pm

index bb2f345fbb67b2773640139be21ff6a60c1bc729..76d22dacb4dab4ba36869b65ecbceaf8353ffae7 100644 (file)
@@ -242,8 +242,6 @@ sub enable {
  my $name = shift;
 
  my $pkg = @_ > 0 ? $_[0] : caller;
- my $fqn = "${pkg}::$name";
-
  my $map = _map($pkg);
 
  if (defined $map) {
@@ -272,8 +270,6 @@ sub disable {
  my $name = shift;
 
  my $pkg = @_ > 0 ? $_[0] : caller;
- my $fqn = "${pkg}::$name";
-
  my $map = _map($pkg);
 
  if (defined $map) {