File Coverage

blib/lib/Rose/DBx/MoreConfig.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch	4	8	50.0
condition	3	8	37.5
subroutine	8	8	100.0
pod	1	1	100.0
total	52	67	77.6

#!perl

use strict;
use warnings;

package Rose::DBx::MoreConfig;

use parent 'Rose::DB';

use File::Basename qw(dirname);
use File::Spec;
use Scalar::Util qw(blessed);

our ($VERSION) = '1.01';

sub auto_load_fixups {
    my ( $self, @args ) = @_;
    my $tried = 0;
    my $home  = eval {
        require File::HomeDir;
        File::HomeDir->my_home;
    }
      || $ENV{HOME}
      || $ENV{LOGDIR}
      || eval { ( getpwuid($<) )[7] }
      || '__ALAS_NO_IDEA__';
    $home = File::Spec->catfile( $home, '.rosedbrc' );
    my $classpm = blessed($self);
    if ($classpm) {

       # Clear the suffix Rose::DB adds to make a generated implementation class
        $classpm =~ s[::__RoseDBPrivate__::.*\.pm$][.pm];
        $classpm =~ s[::][/]g;
        $classpm = $INC{$classpm} || $classpm;
    }
    else {
        $classpm = (caller)[1];
    }
    $classpm = File::Spec->catfile( dirname($classpm), '.rosedbrc' );

    # Hush warnings from Rose::DB::load_yaml_fixup_file() about data
    # sources the current class doesn't implement
    my $warnhook = $SIG{__WARN__};
    local $SIG{__WARN__} = sub {
        my $msg = $_[0];
        return if $msg =~ /^No \S+ data source found/;
        if ( defined $warnhook ) { return $warnhook => (@_); }
        else                     { warn @_; }
    };

    # First, give Rose::DB (or other parent) a chance to do its thing,
    # so ROSEDB_DEVINIT is handled.
    $self->SUPER::auto_load_fixups(@args);

    foreach my $cand ( '/etc/rosedbrc',
        File::Spec->catfile( dirname( $INC{'Rose/DB.pm'} ), '.rosedbrc' ),
        $home, $classpm, $ENV{ROSEDBRC} )
    {
        next unless defined($cand) && -r $cand;
        $tried++;
        $self->load_yaml_fixup_file( $cand, @args );
    }

    return $tried;
}

1;

__END__