diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-09-17 08:13:51 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-09-17 08:13:51 +0200 |
commit | 133ed4d0a96d898f6702ad0d9f836176b66e9b0e (patch) | |
tree | f0d95d4571a087ad670eb55d3a77b3a836256b2c /lib/SlackBuild | |
parent | 6b4a96e398db619ff466e7a41195e9c35178353c (diff) | |
download | slackbuilder-133ed4d0a96d898f6702ad0d9f836176b66e9b0e.tar.gz slackbuilder-133ed4d0a96d898f6702ad0d9f836176b66e9b0e.tar.bz2 |
Use explicit DESTROY with AUTOLOAD
Diffstat (limited to 'lib/SlackBuild')
-rw-r--r-- | lib/SlackBuild/Archive.pm | 1 | ||||
-rw-r--r-- | lib/SlackBuild/Counter.pm | 2 | ||||
-rw-r--r-- | lib/SlackBuild/URI.pm | 2 |
3 files changed, 5 insertions, 0 deletions
diff --git a/lib/SlackBuild/Archive.pm b/lib/SlackBuild/Archive.pm index 183e7f7..3bcc21e 100644 --- a/lib/SlackBuild/Archive.pm +++ b/lib/SlackBuild/Archive.pm @@ -28,6 +28,7 @@ use Carp; our $AUTOLOAD; *AUTOLOAD = \&SlackBuild::URI::AUTOLOAD; +sub DESTROY { } sub new { my ($class, $pname) = (shift, shift); diff --git a/lib/SlackBuild/Counter.pm b/lib/SlackBuild/Counter.pm index 335ce2d..a827acb 100644 --- a/lib/SlackBuild/Counter.pm +++ b/lib/SlackBuild/Counter.pm @@ -188,6 +188,8 @@ sub AUTOLOAD { croak "no such category"; } +sub DESTROY { } + use overload "0+" => sub { shift->total }, "bool" => sub { shift->categories() }, diff --git a/lib/SlackBuild/URI.pm b/lib/SlackBuild/URI.pm index 9056e23..ddfd79b 100644 --- a/lib/SlackBuild/URI.pm +++ b/lib/SlackBuild/URI.pm @@ -47,6 +47,8 @@ sub AUTOLOAD { return $self->{_uri}->$AUTOLOAD(@_); } +sub DESTROY { } + sub _valid_scheme { my $scheme = shift->scheme; return eval { require "LWP/Protocol/$scheme.pm" }; |