export $debug
git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@228
836a5e1a-633d-0410-964b-
294494ad4392
use strict;
use warnings;
use strict;
use warnings;
+use Exporter 'import';
+our @EXPORT = qw/
+ $debug
+/;
+
use Data::Dump qw/dump/;
use Hash::Merge qw/merge/;
use Carp qw/confess/;
use Data::Dump qw/dump/;
use Hash::Merge qw/merge/;
use Carp qw/confess/;
sub full_path {
my ( $self, $path ) = @_;
$full_path = "$path/json";
sub full_path {
my ( $self, $path ) = @_;
$full_path = "$path/json";
- warn "## full_path: $full_path";
+ warn "## full_path: $full_path" if $debug;
return $full_path;
}
sub file {
my ( $self, $uid ) = @_;
my $file = "$full_path/$uid" . $self->extension;
return $full_path;
}
sub file {
my ( $self, $uid ) = @_;
my $file = "$full_path/$uid" . $self->extension;
- warn "## file -> $file";
+ warn "## file -> $file" if $debug;
sub full_path {
my ( $self, $path ) = @_;
$full_path = "$path/yaml";
sub full_path {
my ( $self, $path ) = @_;
$full_path = "$path/yaml";
- warn "## full_path: $full_path";
+ warn "## full_path: $full_path" if $debug;
return $full_path;
}
sub file {
my ( $self, $uid ) = @_;
my $file = "$full_path/$uid" . $self->extension;
return $full_path;
}
sub file {
my ( $self, $uid ) = @_;
my $file = "$full_path/$uid" . $self->extension;
- warn "## file -> $file";
+ warn "## file -> $file" if $debug;