diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-06-03 11:43:24 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-06-03 11:43:24 -0500 |
| commit | 901d24c23e59de511286986bfd1ff391eaa8b3f2 (patch) | |
| tree | ea3e3bc1c60d98f307550d10ce1b1409aba547f5 /lib/Reply/Plugin/Defaults.pm | |
| parent | 95d6cfd3679870b6d265640b23e7537d657458ea (diff) | |
| download | reply-901d24c23e59de511286986bfd1ff391eaa8b3f2.tar.gz reply-901d24c23e59de511286986bfd1ff391eaa8b3f2.zip | |
the #line stuff means that this doesn't have to be unreadable anymore
Diffstat (limited to 'lib/Reply/Plugin/Defaults.pm')
| -rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index 0296c70..b0c4e88 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -25,7 +25,14 @@ sub read_line { return scalar <>; } -my $PREFIX = "package main; BEGIN { \$^H = \$" . __PACKAGE__ . "::default_hints; \%^H = \%\$" . __PACKAGE__ . "::default_hinthash; \${^WARNING_BITS} = \$" . __PACKAGE__ . "::default_warning_bits }"; +(my $PREFIX = <<'PREFIX') =~ s/__PACKAGE__/__PACKAGE__/ge; +package main; +BEGIN { + $^H = $__PACKAGE__::default_hints; + %^H = %$__PACKAGE__::default_hinthash; + ${^WARNING_BITS} = $__PACKAGE__::default_warning_bits; +} +PREFIX sub compile { my $self = shift; |