Change purge from override to around.
This commit is contained in:
parent
52fe958e1f
commit
10f2cda847
1 changed files with 3 additions and 3 deletions
|
|
@ -422,14 +422,14 @@ Subclass the method to remove the subscription group.
|
|||
|
||||
=cut
|
||||
|
||||
override purge => sub {
|
||||
around purge => sub {
|
||||
my $orig = shift;
|
||||
my $self = shift;
|
||||
my $options = shift;
|
||||
|
||||
my $group = $self->getSubscriptionGroup();
|
||||
$group->delete if $group;
|
||||
|
||||
return super();
|
||||
return $self->$orig($options, @_);
|
||||
};
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue