Pastable version of Cache::Cache subroutine with multiple variables returned

<div style="overflow:auto;border:solid 1px #ccc;background:#000;color:#F8F8F8">
          <div class="section">
            
            <pre style="float:left;margin:0 10px;border-right:0;color:#666;">1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54</pre>
            <pre class="sunburst"><span style="color:#E28964;">use</span> Cache::FileCache;

<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>cache</span> = new Cache::FileCache( );

<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> this subroutine works just fine</span>
<span style="color:#99CF50;">sub</span> <span style="color:#89BDFF;">stockInfoFresh</span>
{
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>_</span>[0];
	
	<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span> =~ <span style="color:#E9C062;"><span style="color:#DAD085;">tr</span><span style="color:#E9C062;">/</span>a-z<span style="color:#E9C062;">/</span>A-Z<span style="color:#E9C062;">/</span></span>;
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>first_let</span> = <span style="color:#DAD085;">substr</span>(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span>,0,1);
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>name</span> = <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>Ticker not found<span style="color:#65B042;">&quot;</span></span>;
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>exch</span> = <span style="color:#65B042;"><span style="color:#65B042;">'</span><span style="color:#65B042;">'</span></span>;
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>sth</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>dbh</span><span style="color:#E28964;">-&gt;</span>prepare(<span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>SELECT * FROM `Stock` WHERE `Ticker` = '<span style="color:#8A9A95;"><span style="color:#8A9A95;">$</span>tick</span>'<span style="color:#65B042;">&quot;</span></span>); <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>sth</span><span style="color:#E28964;">-&gt;</span>execute;
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockid</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>sth</span><span style="color:#E28964;">-&gt;</span>fetchrow_array;
	
	<span style="color:#E28964;">if</span> (<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>stockid</span>[0]) {
		<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>name</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>stockid</span>[2];
		<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>exch</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>stockid</span>[3];
	}
	
	<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>sth</span><span style="color:#E28964;">-&gt;</span>finish;
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>out</span>; 
	
	<span style="color:#E28964;">return</span>(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>first_let</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>name</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>exch</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockid</span>);
}

<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> this subroutine fails</span>
<span style="color:#99CF50;">sub</span> <span style="color:#89BDFF;">stockInfo</span>
{
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>_</span>[0];
	
	<span style="color:#99CF50;">my</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockInfo</span> = <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>cache</span><span style="color:#E28964;">-&gt;</span>get( <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>stockInfo<span style="color:#65B042;">&quot;</span></span> . <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span> );
	
	<span style="color:#E28964;">if</span>( not <span style="color:#DAD085;">defined</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockInfo</span> )
	{
		<span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockInfo</span> = &amp;stockInfoFresh(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span>);
		
		<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>cache</span><span style="color:#E28964;">-&gt;</span>set( <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>stockInfo<span style="color:#65B042;">&quot;</span></span> . <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span>, \<span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockInfo</span>, <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>1 hour<span style="color:#65B042;">&quot;</span></span> );
	}

<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> at this point, $stockInfo[0] is empty</span>

<span style="color:#E28964;">return</span> <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockInfo</span>;
}

<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> this fails</span>

<span style="color:#99CF50;">my</span>(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>tick</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>first_let</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>name</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>exch</span>, <span style="color:#3E87E3;"><span style="color:#3E87E3;">@</span>stockid</span>) = &amp;stockInfo(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>t</span>);
</pre>
          </div>
        </div>

<a href="http://refactormycode.com/codes/76-cache-cache-subroutine-with-multiple-variables-returned" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://refactormycode.com/images/small_logo.gif" style="border:0" /></a>

counter free hit invisible