use strict;
use warnings;
use Carp;
use Regexp::DefaultFlags;
use CPANPLUS::Backend;

my $cb = CPANPLUS::Backend->new
   or croak "Can't create new CPANPLUS::Backend object";

my @cat_plugins = $cb->search( type => 'module', allow => [ qr/\A Catalyst::Plugin/ ], );

for my $plugin (@cat_plugins) {
    print $plugin->name, "\n";
    print $plugin->description, "\n";
}