← Back to branch summary

~ubuntu-branches/ubuntu/precise/padre/precise

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Menu/Perl.pm

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2010-12-11 20:56:34 UTC
  • mfrom: (1.3.1 upstream) (13.1.1 experimental)
  • Revision ID: james.westby@ubuntu.com-20101211205634-sitpxguuf9cct47q
Tags: 0.76.ds1-1
* New upstream release

* bump liborlite (build-)dependency to 1.46
* bump libparse-errorstring-perl-perl (build-)dependency to 0.14
* bump libwx-perl-processstream-perl (build-)dependency to 0.29
* update the list of incomplete manuals

* Upload to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/Menu/Perl.pm
5
5
use 5.008;
6
6
use strict;
7
7
use warnings;
8
 
use List::Util    ();
9
 
use File::Spec    ();
10
 
use File::HomeDir ();
11
 
use Params::Util qw{_INSTANCE};
 
8
use List::Util      ();
 
9
use File::Spec      ();
 
10
use File::HomeDir   ();
 
11
use Params::Util    ();
12
12
use Padre::Wx       ();
13
13
use Padre::Wx::Menu ();
14
14
use Padre::Locale   ();
15
 
use Padre::Current qw{_CURRENT};
 
15
use Padre::Current  ();
16
16
 
17
 
our $VERSION = '0.63';
 
17
our $VERSION = '0.76';
18
18
our @ISA     = 'Padre::Wx::Menu';
19
19
 
20
20
 
108
108
 
109
109
sub refresh {
110
110
        my $self    = shift;
111
 
        my $current = _CURRENT(@_);
 
111
        my $current = Padre::Current::_CURRENT(@_);
112
112
        my $config  = $current->config;
113
 
        my $perl    = !!( _INSTANCE( $current->document, 'Padre::Document::Perl' ) );
 
113
        my $perl    = !!Params::Util::_INSTANCE(
 
114
                $current->document,
 
115
                'Padre::Document::Perl',
 
116
        );
114
117
 
115
118
        # Disable document-specific entries if we are in a Perl project
116
119
        # but not in a Perl document.