From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

TKEEFER / Gantry-3.45 / lib / Gantry / Conf / Provider / FlatFile / Config / Tiny.pm 

            

              
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
—
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

              
package Gantry::Conf::Provider::FlatFile::Config::Tiny; 
#####################################################################
# 
#  Name        :    Gantry::Conf::Provider::FlatFile::Config::Tiny; 
#  Author      :    Frank Wiles <frank@revsys.com> 
#
#  Description :    Provider for using Config::Tiny style config
#                   files
#
#####################################################################
use strict;
use warnings; 
use Carp qw(croak); 
use Gantry::Conf::Provider; 
use Config::Tiny;
use base qw( Gantry::Conf::Provider ); 
#------------------------------------------------
# config
#------------------------------------------------
# Configure ourselves via Config::Tiny
#------------------------------------------------
sub config { 
    my $self    =   shift; 
    my $file    =   shift; 
     
    # Create our Config::Tiny object 
    my $conf = Config::Tiny->new(); 
    # Retrieve the configuration file 
    $conf = Config::Tiny->read( $file ); 
    # Fixup our data because Config::Tiny uses an odd format. 
    # We need to move the "root" parameters into being actual
    # keys instead of members of the '_' sub-hash
    my %return_hash; 
    foreach my $k ( keys( %{ $conf } ) ) { 
        if( $k eq '_' ) { 
            foreach my $inner_key ( keys( %{ $conf->{_} } ) ) { 
                $return_hash{$inner_key} = $conf->{_}->{$inner_key}; 
            }
        }
        else { 
            $return_hash{$k} = $conf->{$k}; 
        }
    }
    return( \%return_hash ); 
} # END config 
1;
__END__
=head1 NAME
Gantry::Conf::Provider::FlatFile::Config::Tiny -- Uses Config::Tiny to configure your Gantry application 
=head1 SYNOPSIS
  use Gantry::Conf::Provider::FlatFile::Config::Tiny; 
  my $config_hash = Gantry::Conf::Provider::FlatFile::Config::Tiny->config( $file );
=head1 DESCRIPTION
This allows Gantry::Conf to handle files in a Config::Tiny ( aka INI ) style. 
=head1 METHODS
=over 4
=item config
Returns a config subhash by applying Config::Tiny to an ini style file.
=back
=head1 SEE ALSO
Gantry(3), Gantry::Conf(3), Config::Tiny(3)
=head1 AUTHOR
Frank Wiles <frank@revsys.com> 
=head1 COPYRIGHT and LICENSE
Copyright (c) 2006, Revolution Systems, LLC. 
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
=cut