Expose historicals call in ::Instument

sanko · May 19, 2017 · 44811db · 44811db
1 parent 3e854ff
commit 44811db
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -2,6 +2,8 @@ Revision history for Perl extension Finance-Robinhood
 
 {{$NEXT}}
 
+    - Expose historicals call in ::Instument
+
 0.19 2017-03-29T16:26:33Z
 
     - Robinhood Instant/Gold features:

diff --git a/lib/Finance/Robinhood/Instrument.pm b/lib/Finance/Robinhood/Instrument.pm
@@ -59,7 +59,7 @@ sub _build_quote {
     return Finance::Robinhood::quote(shift->symbol())->{results}[0];
 }
 
-sub _build_historicals {
+sub historicals {
     return Finance::Robinhood::historicals(shift->symbol(), shift, shift);
 }
 

diff --git a/t/09_instrument.t b/t/09_instrument.t
@@ -29,5 +29,7 @@ isa_ok $aapl->market, 'Finance::Robinhood::Market', '->market( )';
 isa_ok $aapl->splits->[0], 'Finance::Robinhood::Instrument::Split',
     '->splits( )';
 isa_ok $aapl->quote, 'Finance::Robinhood::Quote', '->quote( )';
+isa_ok $aapl->historicals('day', 'year')->[0], 'HASH',
+    '->historicals("day", "year")';
 #
 done_testing;