view Lib/IMPL/_core.pm @ 180:d1676be8afcc

Перекодировка в utf-8
author sourcer
date Fri, 30 Dec 2011 23:40:00 +0300
parents 76515373dac0
children
line wrap: on
line source

package IMPL::_core;
use strict;
use IMPL::_core::version;

use parent qw(Exporter);
our @EXPORT_OK = qw( &isDebug &setDebug);

our $Debug = 0;

sub isDebug { $Debug };
sub setDebug { $Debug = shift };

1;