CPANPLUS::Shell::Wx - A CPANPLUS GUI Shell written in wxWidgets

  perl -MCPANPLUS -eshell(Wx);

package CPANPLUS::Shell::Wx;

# Module name:         CPANPLUS::Shell::Wx
# Author:             Skaman Sam Tyler
# Date:             May 9th, 2008
# Description:         This is a perl Module which is a frontend to CPANPLUS.
#
# NOTES:
#    NOTE I have used the methods contained in CPANPLUS::Shell::Tk to create
#        my skeleton code for this module.


# Preloaded methods go here.

use 5.005;
use strict;

use CPANPLUS::Error;
use CPANPLUS::Backend;
use CPANPLUS::Configure::Setup;
use CPANPLUS::Internals::Constants;
use CPANPLUS::Internals::Constants::Report qw[GRADE_FAIL];

use Cwd;
use IPC::Cmd;
use Data::Dumper;
use Wx;

use Module::Load                qw[load];
use Params::Check               qw[check];
use Module::Load::Conditional   qw[can_load check_install];
use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';

use CPANPLUS::Shell::Wx::App;

local $Params::Check::VERBOSE   = 1;
local $Data::Dumper::Indent     = 1; # for dumpering from !

#---- where we begin!
BEGIN {
  use vars        qw( @ISA $VERSION );
  @ISA        =   qw( CPANPLUS::Shell::_Base CPANPLUS::Backend);
  $VERSION    =   '0.04';
}

#initialize the class
sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;

  my $self ={};
  bless $self,$class;
  return $self;
}

#create the shell and start the app
sub shell{
    my $self=shift;
    my $app=CPANPLUS::Shell::Wx::App->new();
    $app->MainLoop;
}

1;