view release on metacpan or  search on metacpan

example/lib/Sub/Exporter/Lexical.pm  view on Meta::CPAN

		}
		else{
			$export_ref = $exportable_ref;
		}

		my $into = caller;
		Data::Util::install_subroutine($into, %{$export_ref});

		$^H |= 0x020000; # HINT_LOCALIZE_HH
		my $cleaner = $^H{$exporter .'/'. $into} ||= bless [$into], $exporter;

		push @{$cleaner}, %{$export_ref};

		return;
	});
}

sub DESTROY :method{
	my($self) = @_;