view release on metacpan or  search on metacpan

lib/Yote/SQLObjectStore/MariaDB/TableManagement.pm  view on Meta::CPAN

    my @mods;

    my $path = join( '/', $root, @path );

    my @perls = map { my $fn = $_->{filename}; $fn =~ s/(.*\/)([^\/]*).pm/$2/; join( "::", @path, $fn ) }
                grep { $_->{count} } 
                fgrep { /Yote::.*::Obj/ } 
                glob "$path/*pm";

    for my $mod (@perls) {
        my @reqlist = requires( $mod );
        if (grep { $_ eq 'Yote::SQLObjectStore::BaseObj' } @reqlist) {
            push @mods, $mod;
        }
    }

    # check for subdirs
    opendir my $dh, $path or return;

    for my $file (grep { $_ !~ /^..?$/ } readdir($dh)) {
        if( -d "$path/$file" ) {

lib/Yote/SQLObjectStore/SQLite/TableManagement.pm  view on Meta::CPAN

    my @mods;

    my $path = join( '/', $root, @path );

    my @perls = map { my $fn = $_->{filename}; $fn =~ s/(.*\/)([^\/]*).pm/$2/; join( "::", @path, $fn ) }
                grep { $_->{count} } 
                fgrep { /Yote::.*::Obj/ } 
                glob "$path/*pm";

    for my $mod (@perls) {
        my @reqlist = requires( $mod );
        if (grep { $_ eq 'Yote::SQLObjectStore::SQLite::Obj' } @reqlist) {
            push @mods, $mod;
        }
    }

    # check for subdirs
    opendir my $dh, $path or return;

    for my $file (grep { $_ !~ /^..?$/ } readdir($dh)) {
        if( -d "$path/$file" ) {