File: Config2.pm

package info (click to toggle)
libbadger-perl 0.16-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,400 kB
  • sloc: perl: 11,004; makefile: 9
file content (26 lines) | stat: -rw-r--r-- 506 bytes parent folder | download 
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
 
package My::Config2;

use strict;
use warnings;
use base 'Badger::Base';
use Badger::Class::Methods
    get => 'username password';
use Badger::Class::Config 
    username => {
        fallback => ['user', 'pkg:USERNAME', 'env:MY_USERNAME'],
        required => 1,
    },
    password => {
        fallback => ['pass', 'pkg:PASSWORD', 'env:MY_PASSWORD'],
        required => 1,
    },
    driver => {
        fallback => ['env:MY_DRIVER', 'pkg:DRIVER'],
    };

sub init {
    shift->configure(@_);
}


1;