Help for this page
$ grep -e /o -e /go -e /io -o AUBBC.pm | wc -l 89
12 my %AUBBC = (aubbc => 1,utf => 1,smileys => 1,highlight => 1,h +ighlight_function => \&{code_highlight},no_bypass => 0,for_links => 0 +,aubbc_escape => 1,no
my %AUBBC = ( aubbc => 1, ... highlight_class6 => '', highlight_class7 => '', );
14 my $long_regex = '[\w\.\/\-\~\@\:\;\=]+(?:\?[\w\~\.\;\:\,\$\-\ ++\!\*\?\/\=\&\@\#\%]+?)?';
15 my @key64 = ('A','B','C','D','E','F','G','H','I','J','K','L',' +M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d +','e','f','g','h','i'
my @key64 = ( 'A' .. 'Z', 'a' .. 'z', 0 .. 9, '+', '/' );
42 sub settings { 43 my ($self,%s_hash) = @_; ... 52 } 53 } 54 &settings_prep;
sub settings { ( my $self, %AUBBC ) = ( @_, %AUBBC ); ... $AUBBC{ highlight } = 0; } settings_prep();
sub settings { my $self = shift; ... $AUBBC{ highlight } = 0; } settings_prep();
169 $protect_email = '[' if $AUBBC{protect_email} eq 3 || $AUBBC{ +protect_email} eq 4; 171 if ($AUBBC{protect_email} eq 1 || $AUBBC{protect_email} eq 2 +) { ... 260 $NewTag{pattern} = 'l' if ($NewTag{type} eq 3 || $NewTag{type +} eq 4); 374 (!$option && $AUBBC{line_break} eq 2) 376 : $text =~ s/\n/<br$AUBBC{html_type}>\n/go if !$option && $ +AUBBC{line_break} eq 1;
222 my $ret = do_sub( $_, $2 , $Build_AUBBC{$_}[2] ) || ''; 223 $ret ? $ret : $1; ... 232 my $ret = do_sub( $_, '' , $Build_AUBBC{$_}[2] ) || ''; 233 $ret ? $ret : $1;
do_sub( ... ) || $1;
243 $fun = \&{$fun};
www.com | www.net | www.org
No recent polls found