/ 
CodeManager-0.04
River stage zero No dependents
/ Prima::CodeManager::Edit 
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
}

NAME

Prima::CodeManager::Edit - standard text editing widget

DESCRIPTION

This is intesively modified the original Prima::Edit module. Please see details there: Prima::Edit.

AUTHOR OF MODIFICATIONS

Waldemar Biernacki, <wb@sao.pl>

COPYRIGHT AND LICENSE OF THE FILE MODIFICATIONS

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:

Around line 704:

=pod directives shouldn't be over one line long! Ignoring all 6 lines of content

Around line 724:

=pod directives shouldn't be over one line long! Ignoring all 21 lines of content

Around line 1223:

=pod directives shouldn't be over one line long! Ignoring all 5 lines of content