use strict;
use warnings;

package PluginBase;

sub new {
    my ($class, %params) = @_;
    
    return bless {%params}, $class;
}


sub get_arg {
    my ($self, $arg) = @_;
    
    return $self->{command_args}{$arg};
}


sub quote_special {
    my ($self, $data) = @_;
    
    $data =~ s@\[@<lftsqbrk/>@g;
    $data =~ s@\]@<rtsqbrk/>@g;
    $data =~ s@\(@<lftbrk/>@g;
    $data =~ s@\)@<rtbrk/>@g;
    $data =~ s@\+@<plus/>@g;
    $data =~ s@\?@<ques/>@g;
    $data =~ s@\&apos;@<apos/>@g;
    $data =~ s@\$@<dollar/>@g;
    
    return $data;
}


sub get_raw_data {
    my $self = shift;
    
    return $self->{raw_data};
}


sub get_data {
    my $self = shift;
    
    return $self->{data};
}


1;