[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
doc
/
perl-Sub-Exporter
/
t
/
lib
/
Test
/
SubExporter
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 DashSetup.pm
721 B
SET
[ EDIT ]
|
[ DEL ]
📄 Faux.pm
1,695 B
SET
[ EDIT ]
|
[ DEL ]
📄 GroupGen.pm
1,080 B
SET
[ EDIT ]
|
[ DEL ]
📄 GroupGenSubclass.pm
399 B
SET
[ EDIT ]
|
[ DEL ]
📄 ObjGen.pm
996 B
SET
[ EDIT ]
|
[ DEL ]
📄 s_e.pm
770 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: ObjGen.pm
#!/usr/bin/perl package Test::SubExporter::ObjGen::Obj; use strict; use warnings; sub new { my $class = shift; my $code = $class->can(shift); bless { code => $code } => $class; } sub group { return { foo => sub { return 'FOO' }, bar => sub { return 'BAR' }, }; } sub baz { return sub { return 'BAZ'; }; } use overload '&{}' => sub { $_[0]->{code} }, 'bool' => sub { 1 }; package Test::SubExporter::ObjGen; my ($group_o, $group_b, $baz, $quux); BEGIN { $quux = sub { sub { 'QUUX' } }; bless $quux => 'Test::SubExporter::Whatever'; $group_o = sub { return { ringo => sub { 'starr' }, richard => sub { 'starkey' }, } }; bless $group_o => 'Test::SubExporter::Whatever'; $baz = Test::SubExporter::ObjGen::Obj->new('baz'); $group_b = Test::SubExporter::ObjGen::Obj->new('group'); } use Sub::Exporter -setup => { exports => { baz => $baz, quux => $quux }, groups => { meta => $group_b, ringo => $group_o }, }; "call me";