| Padre documentation | Contained in the Padre distribution. |
Padre::Task::PPI - Generic PPI background processing task
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;
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.
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.
Steffen Mueller smueller@cpan.org
Copyright 2008-2011 The Padre development team as listed in Padre.pm.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5 itself.
| 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.