1#@!#!123s

: / usr / share / doc / perl-Sub-Exporter / t / lib / Test / SubExporter /

Filename : ObjGen.pm

back

#!/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";

Name	Size	Last Modified	Owner	Permissions
DashSetup.pm	0.704 KB	October 13 2019 12:14:30	root	0644
Faux.pm	1.655 KB	October 18 2013 3:10:07	root	0644
GroupGen.pm	1.055 KB	October 13 2019 12:14:30	root	0644
GroupGenSubclass.pm	0.39 KB	October 18 2013 3:10:07	root	0644
ObjGen.pm	0.973 KB	October 13 2019 12:14:30	root	0644
s_e.pm	0.752 KB	October 13 2019 12:14:30	root	0644

2017 © D7net \| D704T team