1
2
3
4
5
6
7
8
9
10
11
12
13
14

package Foo;

use Moose;

has 'cgi' => (
    isa => 'CGI',
    handles => ['header'],
);


package main;

my $f = Foo->new();
print $f->header;

Quote

Cannot delegate header to header because the value of cgi is not defined at C:/Perl/lib/Moose/Meta/Method/Delegation.pm line 99.
Foo::header('Foo=HASH(0x96b7c4)') called at C:\Dokumente und Einstellungen\rolf\Desktop\pack.pl line 20