If you're correct...
package Something; .... #package stuff sub print { my $self = shift; my $FH = $self->{FILE}; #deref the FILE handle return print $FH join('',@_); } #and likewise with others.
The above would be easier to read and maintain than the whole print { $self->{FILE} } "text" notation, IMO.
In reply to Re^3: open $self->{FILE}
by radiantmatrix
in thread open $self->{FILE}
by b888
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |