Mercurial > pub > Impl

annotate Lib/IMPL.pm @ 331:2ff1726c066c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed operation contract (due it's useless)
author cin
date Wed, 05 Jun 2013 18:21:11 +0400
parents 4d0e1962161c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
147
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
1 package IMPL;
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
2 use strict;
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
3
163
6ce1f052b90a temp commit
wizard
parents: 147
diff changeset
4 use IMPL::_core qw(setDebug);
6ce1f052b90a temp commit
wizard
parents: 147
diff changeset
5 use IMPL::_core::version;
147
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
6
163
6ce1f052b90a temp commit
wizard
parents: 147
diff changeset
7 sub import {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
8 my ($opts) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
9
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
10 if (ref $opts eq 'HASH') {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
11 setDebug($$opts{Debug}) if exists $$opts{Debug};
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
12 }
147
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
13 }
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
14
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 163
diff changeset
15 1;