File: Meta_From_Old.t

package info (click to toggle)
libexporter-declare-perl 0.114-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 228 kB
  • sloc: perl: 1,607; makefile: 4
file content (25 lines) | stat: -r--r--r-- 402 bytes parent folder | download | duplicates (4) 
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
 
#!/usr/bin/perl
use Fennec::Lite;
use strict;
use warnings;

use aliased 'Exporter::Declare::Meta';

{
    package ExporterA;

    our @EXPORT_OK = qw/a b c/;

    sub a { 'a' }
    sub b { 'b' }
    sub c { 'c' }
}

tests ExporterA => sub {
    # Bug found when Testing 0.102 against Exodist:Util prior to release
    lives_ok { Meta->new_from_exporter( 'ExporterA' ) };
};


run_tests;
done_testing;