export

clkao · Nov 26, 2010 · 2ae724b · 2ae724b
1 parent b046865
commit 2ae724b
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/lib/Finance/FITF.pm b/lib/Finance/FITF.pm
@@ -6,6 +6,15 @@ our $VERSION = '0.29';
 use Finance::FITF::Writer;
 use Class::Accessor "antlers";
 
+use Sub::Exporter -setup => {
+    groups  => {
+        default    => [ qw(FITF_TICK_NONE FITF_TICK_USHORT FITF_TICK_ULONG
+                           FITF_BAR_USHORT FITF_BAR_ULONG)],
+    },
+    exports => [qw(FITF_TICK_NONE FITF_TICK_USHORT FITF_TICK_ULONG
+                   FITF_BAR_USHORT FITF_BAR_ULONG)],
+};
+
 use constant FITF_TICK_FMT    => 0x000f;
 use constant FITF_TICK_NONE   => 0x0000;
 use constant FITF_TICK_USHORT => 0x0001;

diff --git a/t/01basic.t b/t/01basic.t
@@ -12,7 +12,7 @@ my $writer = Finance::FITF->new_writer(
         date => '20101119',
         time_zone => 'Asia/Taipei',
         bar_seconds => 10,
-#        format => 0x03, #FITF_TICK_USHORT | FITF_BAR_USHORT
+        format => FITF_TICK_USHORT | FITF_BAR_USHORT,
     },
 );