Select Code to Download

package Records_tagged;

$Records_tagged::link_file = '/path/to/some/file'; # fully qualified s
+calar
our $link_file;                                    # lexical scoped gl
+obal
use vars qw($link_file);                           # package scoped gl
+obal

package Records_tagged;

...
    my $class = shift;
    my $self = shift;  # this only makes sense with Records_tagged->ne
+w(\%hash)
    $self->{link_file} = undef;

sub new {
    my $class = shift;
    my $self = {};     # create an anonymous hash
    $self->{link_file} = undef;