App-Magpie

 view release on metacpan or  search on metacpan

lib/App/Magpie/Action/Missing.pm  view on Meta::CPAN

    # see perl rpms available in mageia
    my %mageia;
    my $mgadists = ORDB::CPAN::Mageia->selectcol_arrayref(
        'SELECT DISTINCT pkgname FROM module ORDER BY dist'
    );
    @mageia{ @$mgadists } = ();

    # list available rpms not installed locally
    delete @mageia{ @local };
    say $_ for sort keys %mageia;
}

1;

__END__

=pod

=encoding UTF-8

lib/App/Magpie/Action/Recent.pm  view on Meta::CPAN

    # tarball /dist name not matching the module(s) inside the dist. so
    # we need to check whether our wild transformation really points to
    # an existing perl module on cpan.
    $self->log( "validating modules" );
    my $mcpan = MetaCPAN::Client->new;
    my $nbvalid;
    foreach my $module ( sort @nomageia ) {
        my $result;
        eval { $result = $mcpan->module( $module ); };
        next if $@;
        say $module;
        $nbvalid++;
    }

#    $self->log( "uploads:  " . scalar(@uploads) );
#    $self->log( "nomageia: " . scalar(@nomageia) );
#    $self->log( "valid:    $nbvalid" );
    my $uploads = @uploads;
    my $percent = 100 - int( $nbvalid * 100 / $uploads );
    $self->log( "new=$uploads, not in mageia=$nbvalid, mageia coverage=$percent%" );
}

lib/App/Magpie/App/Command/checkout.pm  view on Meta::CPAN

    my $pkg = shift @$args;
    $self->usage_error( "A package should be specified." )
        unless defined $pkg;

    # do the checkout
    $self->log_init($opts);
    require App::Magpie::Action::Checkout;
    my $pkgdir = App::Magpie::Action::Checkout->new->run($pkg, $opts->{directory});

    # display command to execute if shell mode
    say "cd $pkgdir" if $opts->{shell};
}

1;

__END__

=pod

=encoding UTF-8

lib/App/Magpie/App/Command/config.pm  view on Meta::CPAN

        [ "Available configuration items" ],
        [ "log-level|l=i", "default logging level", ]
    );
}

sub execute {
    my ($self, $opts, $args) = @_;
    my $config = App::Magpie::Config->instance;

    if ( $opts->{dump} ) {
        say $config->dump;
        exit;
    }

    if ( exists $opts->{log_level} ) {
        $config->set( "log", "level", $opts->{log_level} );
    }
}

1;

lib/App/Magpie/App/Command/old.pm  view on Meta::CPAN

            next;
        }

        my $label = $set->name;
        my $details;
        if ( $label eq "core" || $label eq "orphan" || $label eq "strange" ) {
            $details = $set->nb_modules . " modules";
        } else {
            $details = $set->nb_packages . " packages (" . $set->nb_modules . " modules)";
        }
        say "** $label packages: $details";
        say '';

        my %seen;
        MODULE:
        foreach my $module ( sort $set->all_modules ) {
            my @pkgs = $module->packages;
            if ( scalar(@pkgs) == 0 ) {
                say encode( 'utf-8',
                    $pad->left ( $module->name, 40 )   .
                    $pad->right( $module->oldver, 14 ) .
                    $pad->right( $module->newver, 14 )
                );
            } elsif ( scalar(@pkgs) == 1 ) {
                my $pkg = shift @pkgs;
                next MODULE if $seen{ $pkg->name }++;
                say encode( 'utf-8',
                    $pad->left ( $module->name, 40 )   .
                    $pad->right( $module->oldver, 14 ) .
                    $pad->right( $module->newver, 14 ) .
                    " " x 5                            .
                    $pad->left ( $pkg->name, 50 )      .
                    $pad->right( $pkg->version, 14 )
                );
            } else {
                my @details =
                    map { $_->name . "(" . $_->version . ")" }
                    @pkgs;
                say encode( 'utf-8',
                    $pad->left ( $module->name, 40 )   .
                    $pad->right( $module->oldver, 14 ) .
                    $pad->right( $module->newver, 14 ) .
                    " " x 5                            .
                    join( ",", @details )
                );
             }
        }
        say '';
    }

    if ( @ignored ) {
        say "** ignored modules: " . scalar(@ignored) . "\n";
        print join ", ", map { $_->name ."(" . $_->newver . ")" } @ignored;
        say '';
    }
}

1;

__END__

=pod

=encoding UTF-8