note
tobyink
<p>The two answers above should address the problem you're having. Here are some style tips though...</p>
<p>In these two lines, you are treating <c>$self</c> like it is a hashref...</p>
<code>
$self->{tempfile} = File::Temp->new(UNLINK => 1, SUFFIX => '.tmp');
print $self->{tempfile} "I am here";
</code>
<p>But self is not a hashref; it's an object. OK, so Moose implements objects as blessed hashrefs by default, but it is considered bad form to treat an object as a hashref - we're supposed to pretend that it's not a hashref, and only access the internals via the accessors that Moose gives us. So we should do this...</p>
<code>
$self->tempfile( File::Temp->new(UNLINK => 1, SUFFIX => '.tmp') );
print {$self->tempfile} "I am here";
</code>
<p>The reasons for doing so are not just theoretical. Accessing the object as a hashref bypasses all your type constraints, triggers, etc.</p>
<p>Secondly, you are initialising an attribute within the <c>BUILD</c> method. While you <em>can</em> do that, Moose does provide attribute defaults and builders for this sort of thing:</p>
<code>
package test; # not 'test.pm'
use Moose;
use File::Temp;
has tempfile => (
is => 'rw',
isa => 'File::Temp',
lazy => 1,
default => sub {
File::Temp->new(UNLINK => 1, SUFFIX => '.tmp')
},
);
sub BUILD {
my $self = shift;
print { $self->tempfile } "I am here";
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1004523
1004523