annotate Lib/IMPL.pm @ 147:c2aa10fbb396

Post to dom improved
author wizard
date Mon, 09 Aug 2010 08:45:36 +0400
parents
children 6ce1f052b90a
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
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
4 use Exporter;
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
5 our @EXPORT_OK = qw( &Debug );
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
6
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
7 our $Debug = 1 unless defined $Debug;
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
8
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
9 sub Debug() {
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
10 $Debug
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
11 }
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
12
c2aa10fbb396 Post to dom improved
wizard
parents:
diff changeset
13 1;