Select Code to Download

$ 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};