Mercurial > pub > Impl
view Lib/IMPL.pm @ 177:df71a307ef9b
new constructor syntax
author | sourcer |
---|---|
date | Wed, 12 Oct 2011 00:04:13 +0300 |
parents | 6ce1f052b90a |
children | d1676be8afcc |
line wrap: on
line source
package IMPL; use strict; use IMPL::_core qw(setDebug); use IMPL::_core::version; sub import { my ($opts) = @_; if (ref $opts eq 'HASH') { setDebug($$opts{Debug}) if exists $$opts{Debug}; } } 1;