JezK
Edit File: Files.pm
package B::Hooks::OP::Check::Install::Files; $self = { 'deps' => [], 'inc' => '', 'libs' => '', 'typemaps' => [] }; @deps = @{ $self->{deps} }; @typemaps = @{ $self->{typemaps} }; $libs = $self->{libs}; $inc = $self->{inc}; $CORE = undef; foreach (@INC) { if ( -f $_ . "/B/Hooks/OP/Check/Install/Files.pm") { $CORE = $_ . "/B/Hooks/OP/Check/Install/"; last; } } sub deps { @{ $self->{deps} }; } sub Inline { my ($class, $lang) = @_; +{ map { (uc($_) => $self->{$_}) } qw(inc libs typemaps) }; } 1;