in reply to Re^2: How not to use "our"?
in thread How not to use "our"?
Simply build a function that returns the variables. Define values inside a function to make them inaccessible from outside. Something like this :
#!/usr/local/bin/perl use strict; use warnings; package MyData; sub getData { my $data = { 'test' => 'yes', 'key' => 'value', 'some' => 'thing', 'array' => [ 1, 2, 3 ], }; my $key = shift; defined $data->{$key} ? return $data->{$key} : return; } package main; foreach my $testcase (qw(test key some bork)) { my $value = MyData::getData($testcase); if ($value) { print "Data for $testcase : $value \n"; } else { print "No such data : $testcase .\n"; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: How not to use "our"?
by ikegami (Patriarch) on Nov 29, 2010 at 16:34 UTC |
In Section
Seekers of Perl Wisdom