my ( $prev_type, $next_type ) = ( 0, 0 ); $prev_type = 1 if $self-> get_line( $cs[1] ) =~ /($blok_beg|blok_end)/; my $modify = 0; for (my $i = $cs[1] ; $i < $cs[1] + $self->{rows} ; $i++ ) { $modify = 1 if $self-> get_line( $i ) && ( $self-> get_line( $i ) =~ /($blok_beg|blok_end)/ || $self->{hiliteBlok_value}->[ $i ] ); last if $modify }
Prima::CodeManager::Edit - standard text editing widget
This is intesively modified the original Prima::Edit module. Please see details there: Prima::Edit.
Waldemar Biernacki, <wb@sao.pl>
Copyright 2009-2012 by Waldemar Biernacki.
http://CodeManager.sao.pl
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
3 POD Errors
The following errors were encountered while parsing the POD:
=pod directives shouldn't be over one line long! Ignoring all 6 lines of content
=pod directives shouldn't be over one line long! Ignoring all 21 lines of content
=pod directives shouldn't be over one line long! Ignoring all 5 lines of content
To install bt, copy and paste the appropriate command in to your terminal.
cpanm
cpanm bt
CPAN shell
perl -MCPAN -e shell install bt
For more information on module installation, please visit the detailed CPAN module installation guide.