From 7adaf1ae075abb79226ae0d563c0c0156491ecec Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 25 Nov 2007 20:33:12 +0000
Subject: [PATCH]  r270@brr:  dpavlin | 2007-11-25 21:14:10 +0100  export
 $debug

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@228 836a5e1a-633d-0410-964b-294494ad4392
---
 lib/CWMP/Store/HASH.pm | 5 +++++
 lib/CWMP/Store/JSON.pm | 4 ++--
 lib/CWMP/Store/YAML.pm | 4 ++--
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/lib/CWMP/Store/HASH.pm b/lib/CWMP/Store/HASH.pm
index 87bec30..fed4495 100644
--- a/lib/CWMP/Store/HASH.pm
+++ b/lib/CWMP/Store/HASH.pm
@@ -3,6 +3,11 @@ package CWMP::Store::HASH;
 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/;
diff --git a/lib/CWMP/Store/JSON.pm b/lib/CWMP/Store/JSON.pm
index 6a80bdf..43b1d44 100644
--- a/lib/CWMP/Store/JSON.pm
+++ b/lib/CWMP/Store/JSON.pm
@@ -20,14 +20,14 @@ my $full_path;
 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;
-	warn "## file -> $file";
+	warn "## file -> $file" if $debug;
 	return $file;
 }
 
diff --git a/lib/CWMP/Store/YAML.pm b/lib/CWMP/Store/YAML.pm
index a523443..7be49ee 100644
--- a/lib/CWMP/Store/YAML.pm
+++ b/lib/CWMP/Store/YAML.pm
@@ -20,14 +20,14 @@ my $full_path;
 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;
-	warn "## file -> $file";
+	warn "## file -> $file" if $debug;
 	return $file;
 }
 
-- 
2.20.1