File: 04b_wrap_tree_of_packages_late_loading.t

package info (click to toggle)
libsub-wrappackages-perl 2.02-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 292 kB
  • sloc: perl: 664; sh: 3; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 463 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;

use lib 't/lib';

use Test::More tests => 8;

use Sub::WrapPackages (
    packages => [qw(Banana::Tree Orchard::*)],
    pre      => sub {
        ok(1, "$_[0] pre-wrapper")
    },
    post     => sub {
        ok(1, "$_[0] post-wrapper")
    }
);

use Banana::Tree; # load after Sub::WrapPackages
use Orchard::Tree::Pear::Conference;

ok(Orchard::Tree::Pear::Conference::tastes_nasty, "Conference pears are BAD");
Banana::Tree::foo();