Padre::Plugin::ClassSniff - Simple Class::Sniff interface for Padre

Padre-Plugin-ClassSniff documentation Contained in the Padre-Plugin-ClassSniff distribution.

Index

Code Index:

NAME

Top

Padre::Plugin::ClassSniff - Simple Class::Sniff interface for Padre

SYNOPSIS

Top

Use this like any other Padre plugin. To install Padre::Plugin::ClassSniff for your user only, you can type the following in the extracted Padre-Plugin-ClassSniff-... directory:

  perl Makefile.PL
  make
  make test
  make installplugin

Afterwards, you can enable the plugin from within Padre via the menu Plugins->Plugin Manager and there click enable for Class::Sniff.

DESCRIPTION

Top

This module adds very, very basic support for running Class::Sniff with the default settings against the document (assumed to be a class) in the current editor tab.

The output will go to the Padre output window.

TODO: Configuration

AUTHOR

Top

Steffen Mueller, <smueller at cpan.org>

BUGS

Top

Please report any bugs or feature requests to http://padre.perlide.org/

COPYRIGHT & LICENSE

Top

Copyright 2009 The Padre development team as listed in Padre.pm. all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Padre-Plugin-ClassSniff documentation Contained in the Padre-Plugin-ClassSniff distribution. 
package Padre::Plugin::ClassSniff;

use 5.008;
use warnings;
use strict;

use Padre::Config ();
use Padre::Wx     ();
use Padre::Plugin ();
use Padre::Util   ('_T');

our $VERSION = '0.01';
our @ISA     = 'Padre::Plugin';



sub padre_interfaces {
	'Padre::Plugin' => 0.24,
	'Padre::Task' => 0.29,
}

sub plugin_name {
	'Class::Sniff';
}

sub menu_plugins_simple {
	my $self = shift;
	return $self->plugin_name => [
		_T('About')             => sub { $self->show_about },
		_T('Print Report')      => sub { $self->print_report },
#		_T('Configuration')     => sub { $self->configuration_dialog(Padre->ide->wx) },
	];
}

sub print_report {
	my $self = shift;
	require Padre::Task::ClassSniff;
	Padre::Task::ClassSniff->new(
		mode => 'print_report',
	)->schedule();
}



sub show_about {
	my $self = shift;

	# Generate the About dialog
	my $about = Wx::AboutDialogInfo->new;
	$about->SetName("Padre::Plugin::ClassSniff");
	$about->SetDescription( <<"END_MESSAGE" );
Initial Class::Sniff support for Padre
END_MESSAGE
	$about->SetVersion( $VERSION );

	# Show the About dialog
	Wx::AboutBox( $about );

	return;
}

#sub plugin_preferences {
#	my $self = shift;
#	my $wxparent = shift;
#}


1;

__END__



# Copyright 2009 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.