I don't think it's possible to catch it since it's never use'd, require'd, or import'ed anywhere. Here's the code from Ima::DBI (version 0.33). I just don't see a way to find the DBIx::ContextualFetch usage unless there is someway at runtime to watch %INC, et al. 
sub set_db {
    my $class = shift;
    my $db_name = shift or $class->_croak("Need a db name");
    $db_name =~ s/\s/_/g;

    my $data_source = shift or $class->_croak("Need a data source");
    my $user     = shift || "";
    my $password = shift || "";
    my $attr     = shift || {};
    ref $attr eq 'HASH' or $class->_croak("$attr must be a hash refere
+nce");
    $attr = $class->_add_default_attributes($attr);

    $class->_remember_handle($db_name);
    no strict 'refs';
    *{ $class . "::db_$db_name" } =
        $class->_mk_db_closure($data_source, $user, $password, $attr);

    return 1;
}

sub _add_default_attributes {
    my ($class, $user_attr) = @_;
    my %attr = $class->_default_attributes;
    @attr{ keys %$user_attr } = values %$user_attr;
    return \%attr;
}

sub _default_attributes {
    (
        RaiseError => 1,
        AutoCommit => 0,
        PrintError => 0,
        Taint      => 1,
        RootClass  => "DBIx::ContextualFetch"
    );
}

[download]

In reply to Re: Re: Re: Re: Re: Re: Re: Source-Code Analysis? by drewbie
in thread Source-Code Analysis? by monsieur_champs

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.