Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
constants.t	241 B	-r--r--r--	2014-12-27 11:48
data_convert.t	955 B	-r--r--r--	2014-12-27 11:48
linerep.t	1.17 KB	-r--r--r--	2014-12-27 11:48
multi.t	5.11 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl

use Test::More tests => 18;
use Attribute::Handlers;

sub Args : ATTR(CODE) {
    my ($package, $symbol, $referent, $attr, $data, $phase, $filename, $linenum) = @_;
    is( $package,	'main',		'package' );
    is( $symbol,	\*foo,		'symbol' );
    is( $referent,	\&foo,		'referent' );
    is( $attr,		'Args',		'attr' );
    is( ref $data,	'ARRAY',	'data' );
    is( $data->[0],	'bar',		'data' );
    is( $phase,		'CHECK',	'phase' );
    is( $filename,	__FILE__,	'filename' );
    is( $linenum,	19,		'linenum' );
}

sub foo :Args(bar) {}

my $ref;
sub myref { $ref = shift; }
my $b;
#line 42
eval "my \$bar :SArgs(grumpf); \$b = \\\$bar";
is( $b, $ref, 'referent' );

sub SArgs : ATTR(SCALAR) {
    my ($package, $symbol, $referent, $attr, $data, $phase, $filename, $linenum) = @_;
    is( $package,	'main',		'package' );
    is( $symbol,	'LEXICAL',	'symbol' );
    myref($referent);
    is( $attr,		'SArgs',	'attr' );
    is( ref $data,	'ARRAY',	'data' );
    is( $data->[0],	'grumpf',	'data' );
    is( $phase,		'CHECK',	'phase' );
    TODO: {
      local $TODO = "Doesn't work correctly" if $] < 5.008;
      is( $filename,	__FILE__,	'filename' );
      is( $linenum,	42,		'linenum' );
    }
}