File: exported_func.t

package info (click to toggle)
libtest-base-perl 0.79-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 664 kB
  • ctags: 108
  • sloc: perl: 952; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 299 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
package Testfunc;
use Test::Base -Base;

BEGIN {
    our @EXPORT = qw(func_with_args);
}

sub func_with_args() {
    (my ($self), @_) = find_my_self(@_);
    return @_;
}

package main;
BEGIN { Testfunc->import }

plan tests => 1;

my @ret = func_with_args(1, 2, 3);

is_deeply \@ret, [ 1, 2, 3 ];