File: 070-modify-multiple-at-once.t

package info (click to toggle)
libclass-method-modifiers-perl 2.12-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 404 kB
  • ctags: 9
  • sloc: perl: 359; makefile: 2
file content (38 lines) | stat: -rw-r--r-- 967 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
my @seen;

package Parent;
sub new { bless {}, shift }
sub left { push @seen, "orig-left" }
sub right { push @seen, "orig-right" }

package Child;
our @ISA = 'Parent';
use Class::Method::Modifiers;
before 'left', 'right' => sub { push @seen, 'before' };

package Grandchild;
our @ISA = 'Child';
use Class::Method::Modifiers;
before ['left', 'right'] => sub { push @seen, 'grandbefore' };

package main;

my $child = Child->new();
$child->left;
is_deeply([splice @seen], [qw/before orig-left/], "correct 'left' results");

$child->right;
is_deeply([splice @seen], [qw/before orig-right/], "correct 'right' results");

my $grand = Grandchild->new();
$grand->left;
is_deeply([splice @seen], [qw/grandbefore before orig-left/], "correct 'left' results");

$grand->right;
is_deeply([splice @seen], [qw/grandbefore before orig-right/], "correct 'right' results");

done_testing;