defer go-like in perl using Moo

a.pl

package main;
use strict;
use warnings;
use feature 'say';
use Foo qw(defer);

{
  say "before";
  my $guard = defer { say "defer" };
  say "after";
}

say "end";

Foo.pm

package Foo;
use Exporter 'import';

use Moo;
use MooX::Types::MooseLike::Base qw(CodeRef);

has c => ( 
  is       => 'ro', 
  isa      => CodeRef, 
  required => 1, 
);

our @EXPORT_OK = qw(defer);

sub defer(&){
  my ($callback) = @_;

  return __PACKAGE__->new( c => $callback );
}

sub DEMOLISH {
  my ($self) = @_;

  $self->c->();
}

1;

output.txt

$ perl a.pl
before
after
defer
end