17 Mar
2013
17 Mar
'13
4:13 p.m.
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 }