Padre::Task::PPI - Generic L<PPI> background processing task


Padre documentation Contained in the Padre distribution.

Index


Code Index:

NAME

Top

Padre::Task::PPI - Generic PPI background processing task

SYNOPSIS

Top

  package Padre::Task::MyFancyTest;

  use base 'Padre::Task::PPI';

  # Will be called after ppi-parsing:
  sub process {
      my $self   = shift;
      my $ppi    = shift or return;
      my $result = ...expensive_calculation_using_ppi...
      $self->{result} = $result;
      return;
  }

  1;

  # elsewhere:

  Padre::Task::MyFancyTest->new(
      text => 'parse-this!',
  )->schedule;

DESCRIPTION

Top

This is a base class for all tasks that need to do expensive calculations using PPI. The class will setup a PPI::Document object from a given piece of code and then call the process_ppi method on the task object and pass the PPI::Document as first argument.

You can either let Padre::Task::PPI fetch the Perl code for parsing from the current document or specify it as the "text" parameter to the constructor.

Note: If you don't supply the document text and there is no currently open document to fetch it from, new() will simply return the empty list instead of a Padre::Task::PPI object.

SEE ALSO

Top

This class inherits from Padre::Task and its instances can be scheduled using Padre::TaskManager.

The transfer of the objects to and from the worker threads is implemented with Storable.

AUTHOR

Top

Steffen Mueller smueller@cpan.org

COPYRIGHT AND LICENSE

Top


Padre documentation Contained in the Padre distribution.
package Padre::Task::PPI;

use 5.008;
use strict;
use warnings;
use Padre::Task ();

our $VERSION = '0.86';
our @ISA     = 'Padre::Task';

sub new {
	my $self = shift->SUPER::new(@_);
	if ( $self->{document} ) {
		$self->{text} = delete( $self->{document} )->text_get;
	}
	return $self;
}

sub run {
	my $self = shift;
	my $text = delete $self->{text};

	# Parse the document and hand off to the task
	require PPI::Document;
	$self->process( PPI::Document->new( \$text ) );

	return 1;
}

1;

__END__

# Copyright 2008-2011 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.