← Back
Editing: 040-twice-orig.t
#!/usr/bin/perl use strict; use warnings; use Test::More 0.88; use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; my @seen; eval { ChildCMM->new->orig() }; is_deeply(\@seen, ["orig", "orig"], "CMM: calling orig twice in one around works"); BEGIN { package MyParent; sub new { bless {}, shift } sub orig { push @seen, "orig" } package ChildCMM; our @ISA = 'MyParent'; use Class::Method::Modifiers; around 'orig' => sub { my $orig = shift; $orig->(); $orig->(); }; } done_testing;
Save File
Cancel