blob: 6a68fdc8ed8e124ee3a670dd08be1c7e9851f32c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/env perl
#
# $FML: read_only.pl,v 1.1 2002/07/22 09:38:40 fukachan Exp $
#
use strict;
use Carp;
use lib qw(../../fml/lib ../../cpan/lib);
use FML::Config;
my $debug = defined $ENV{'debug'} ? 1 : 0;
my $map = 'mysql:fml';
my $config = new FML::Config;
for my $file (@ARGV) {
$config->load_file($file);
}
my $hash_ref = { 1 => 2 };
my $p = $config->{ '[mysql:fml]' };
use Data::Dumper;
print Dumper( $hash_ref );
print Dumper( $p );
print "\n";
1;
|
