$ grep -e /o -e /go -e /io -o AUBBC.pm | wc -l 89 ##

##

     12 my %AUBBC = (aubbc => 1,utf => 1,smileys => 1,highlight => 1,highlight_function => \&{code_highlight},no_bypass => 0,for_links => 0,aubbc_escape => 1,no

##

##

my %AUBBC = (
    aubbc               => 1,
    utf                 => 1,
    smileys             => 1,
    highlight           => 1,
    highlight_function  => \&{ code_highlight },
    no_bypass           => 0,
    for_links           => 0,
    aubbc_escape        => 1,
    no_img              => 0,
    icon_image          => 1,
    image_hight         => 60,
    image_width         => 90,
    image_border        => 0,
    image_wrap          => ' ',
    href_target         => ' target="_blank"',
    images_url          => '',
    html_type           => ' /',
    fix_amp             => 1,
    line_break          => 1,
    code_class          => '',
    code_extra          => '',
    href_class          => '',
    quote_class         => '',
    quote_extra         => '',
    script_escape       => 1,
    protect_email       => 0,
    email_message       => 'Contact Email',
    highlight_class1    => '',
    highlight_class2    => '',
    highlight_class3    => '',
    highlight_class4    => '',
    highlight_class5    => '',
    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) = @_;
     44  if (keys %s_hash) {
     45   foreach (keys %s_hash) {
     46    if ('highlight_function' eq $_) {
     47     my $is_ok = check_subroutine($s_hash{$_}) || '';
     48     $AUBBC{highlight} = 0;
     49     $AUBBC{highlight_function} = ($is_ok) ? \&{$s_hash{$_}} : \&{code_highlight};
     50    } else {
     51     $AUBBC{$_} = $s_hash{$_};
     52    }
     53   }
     54   &settings_prep;

##

##

sub settings {
    ( my $self, %AUBBC ) = ( @_, %AUBBC );

    if ( exists $AUBBC{ highlight_function } ) {
        $AUBBC{ highlight_function } = \&code_highlight unless check_subroutine( $AUBBC{ highlight_function } );
        $AUBBC{ highlight } = 0;
        }
    settings_prep();

##

##

sub settings {
    my $self = shift;
    %AUBBC = ( %AUBBC, @_ );

    if ( exists $AUBBC{ highlight_function } ) {
        $AUBBC{ highlight_function } = \&code_highlight unless check_subroutine( $AUBBC{ highlight_function } );
        $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) {
    173   } elsif ($AUBBC{protect_email} eq 3) {
    175   } elsif ($AUBBC{protect_email} eq 4) {
    180  if ($AUBBC{protect_email} eq 1) {
    182  } elsif ($AUBBC{protect_email} eq 2) {
    185  } elsif ($AUBBC{protect_email} eq 3 || $AUBBC{protect_email} eq 4) {
    188  return <\n/go if !$option && $AUBBC{line_break} eq 1;

##

##

    222    my $ret = do_sub( $_, $2 , $Build_AUBBC{$_}[2] ) || '';
    223    $ret ? $ret : $1;

    227    my $ret = do_sub( $_, $2 , $Build_AUBBC{$_}[2] ) || '';
    228    $ret ? $ret : $1;

    232    my $ret = do_sub( $_, '' , $Build_AUBBC{$_}[2] ) || '';
    233    $ret ? $ret : $1;

##

##

    do_sub( ... ) || $1;

##

##

    243  $fun = \&{$fun};