if (expression) {
statement (1);
}
else {
statement (2);
}
statement (3);
####
sub get_filehandle {
my $self = shift;
$self->{file} = shift;
open my $fh, "<", $self->{file}
or die "can't open $self->{file}";
return $fh;
}
##
##
sub get_filehandle {
my $self = shift;
$self->{file} = shift;
if (open my $fh, "<", $self->{file}) {
return $fh;
}
else {
die "can't open $self->{file}";
}
}
##
##
sub get_lines {
my $self = shift;
$self->{file} = shift;
### get the filehandle if we don't already have one
$self->{file_handle} ||= $self->get_filehandle ($self->{file});
return readline ($self->{file_handle}) || undef;
}