view release on metacpan or  search on metacpan

lib/Rose/DBx/MoreConfig.pm  view on Meta::CPAN

    $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 => (@_); }