Changeset 4223 for lang/perl/Config-Pit

Timestamp:

01/08/08 20:35:01 (5 years ago)

Author:

cho45

Message:

lang/perl/Config-Pit/trunk/t/01_basic.t,
lang/perl/Config-Pit/trunk/lib/Config/Pit.pm:

Append exported function 'pit_get'

Location:

lang/perl/Config-Pit/trunk

Files:

• lib/Config/Pit.pm (modified) (5 diffs)
• t/01_basic.t (modified) (2 diffs)

lang/perl/Config-Pit/trunk/lib/Config/Pit.pm

@@ -3 +3 @@
 use strict;
 use 5.8.1;
+
+use base qw/Exporter/;
+our @EXPORT = qw/pit_get/;
 
 use YAML ();
@@ -85 +88 @@
 }
 
+*pit_get = *get;
 
 1;
@@ -97 +101 @@
   use Config::Pit;
 
-  my $config = Config::Pit::get("twitter.com", require => {
+  my $config = pit_get("twitter.com", require => {
     "username" => "your username on twitter",
     "password" => "your password on twitter"
@@ -124 +128 @@
   my $config = Config::Pit::get("twitter.com");
 
+This is same as below:
+
+  my $config = pit_get("twitter.com");
+
 opts:
 
@@ -130 +138 @@
 =item require
 
-  my $config = Config::Pit::get("twitter.com", require => {
+  my $config = pit_get("twitter.com", require => {
     "username" => "your username on twitter",
     "password" => "your password on twitter"

lang/perl/Config-Pit/trunk/t/01_basic.t

@@ -2 +2 @@
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 8;
 use File::Temp;
 
@@ -30 +30 @@
 is($config->{bar}, "baz", "get returned value (after set)");
 
+$config = pit_get("test");
+is($config->{foo}, "bar", "get returned value (exported sub)");
+is($config->{bar}, "baz", "get returned value (exported sub)");
+
 #my $config = Config::Pit::get("test", require => {
 #       "foo" => "foo test",