Padre::Task::FindVariableDeclaration - Finds where a variable was declared using L<PPI>

Padre documentation Contained in the Padre distribution.

Index

Code Index:

NAME

Top

Padre::Task::FindVariableDeclaration - Finds where a variable was declared using PPI

SYNOPSIS

Top

  # Find declaration of variable at cursor
  my $task = Padre::Task::FindVariableDeclaration->new(
          document => $document_obj,
          location => [ $line, $column ], # ppi-style location is okay, too
  );

  $task->schedule;

DESCRIPTION

Top

Finds out where a variable has been declared. If unsuccessful, a message box tells the user about that glorious fact. If a declaration is found, the cursor will jump to it.

SEE ALSO

Top

This class inherits from Padre::Task::PPI.

AUTHOR

Top

Steffen Mueller smueller@cpan.org

COPYRIGHT AND LICENSE

Top

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::FindVariableDeclaration;

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

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


sub process {
	my $self     = shift;
	my $ppi      = shift or return;
	my $location = $self->{location};
	my $result   = eval {
		require PPIx::EditorTools::FindVariableDeclaration;
		PPIx::EditorTools::FindVariableDeclaration->new->find(
			ppi    => $ppi,
			line   => $location->[0],
			column => $location->[1]
		);
	};
	if ($@) {
		$self->{error} = $@;
		return;
	}

	# If we found it, save the location
	if ( defined $result ) {
		$self->{location} = $result->element->location;
	}

	return;
}

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.