package App::Twirc::Plugin::BangCommands;
use warnings;
use strict;

sub new { bless {}, shift }

sub preprocess {
    my (undef,undef,undef,undef, $textref) = @_;

    unless ( $$textref =~ s/^!\s*// ) {
        $$textref = "post $$textref";
    }
    return;
}

1;

__END__

=head1 NAME

App::Twirc::Plugin::BangCommands - Commands prefixed with !

=head1 SYNOPSIS

  # in config (.yml in this example)
  plugins:
      -BangCommands

  # in your IRC clientt
  This is a status message (no "post" prefix necessary)
  !follow net_twitter
  !rate_limit_status

=head1 DESCRIPTION

In your IRC client, text entered without an exclamation point (!) prefix will
be posted as a status message.  Commands start with an exclamation mark (!)
prefix.

=head1 AUTHOR

Marc Mims <marc@questright.com>

=head1 LICENSE

Copyright (c) 2009 Marc Mims

You may distribute this code and/or modify it under the same terms as Perl itself.

=cut