/usr/local/CPAN/Padre/Padre/Document/Perl/Outline.pm

• package Padre::Document::Perl::Outline
  • find
• EOF

package Padre::Document::Perl::Outline;

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

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





######################################################################
# Padre::Task::Outline Methods

sub find {
	my $self = shift;
	my $text = shift;

	require PPIx::EditorTools::Outline;
	return PPIx::EditorTools::Outline->new->find( code => $text );
}

1;

# 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.