I figure it out now. Really learn a lot by reading the codes. Thanks.
On Sun, Mar 17, 2013 at 11:13 AM, Hao Wu <[email protected]> wrote:
> Hi Dancers,
>
> I am reading the dancer2 code and can not figure out what the CODE means
> here.
> Could anyone give me some direction? Thanks.
>
> Dancer2/Core/Role/DSL.pm
>
> 44 sub export_symbols_to {
> 45 my ($self, $caller, $args) = @_;
> 46 my $exports = $self->_construct_export_map($args);
> 47
> 48 foreach my $export (keys %{$exports}) {
> 49 no strict 'refs';
> 50 my $existing = *{"${caller}::${export}"}{CODE};
> 51
> 52 next if defined $existing;
> 53
> 54 *{"${caller}::${export}"} = $exports->{$export};
> 55 }
> 56
> 57 return keys %{$exports};
> 58 }
>
>
_______________________________________________
dancer-users mailing list
[email protected]
http://lists.preshweb.co.uk/mailman/listinfo/dancer-users
