use warnings;
use strict;

=head1 NAME

BarnOwl::Module::FooBar

=head1 DESCRIPTION

This is package FooBar. Describe it or whatever. I don't know.

=cut

package BarnOwl::Module::FooBar;

our $VERSION = 0.1.0.2;

sub cmd_foobar {
	my $cmd = shift;
	my $txt = "This was called with command $cmd.\n";
	for my $i (0..$#_) {
		$txt .= "Argument $i was $_[$i].\n"
	}
	BarnOwl::popless_text($txt);
}
BarnOwl::new_command('foobar' => \&cmd_foobar, {
		summary => "Does foobar",
		description => "Does foobar.\n" .
		"This is a long description.\n" .
		"You can see it if you `help foobar`.",
		usage => "foobar [arg0 [arg1 [...]]]"
	});

1;