package Dice::Simpler;
use strict; use warnings;
use Filter::Simple;
use Dice::Simple qw(roll);

our @ISA=qw(Exporter);
our @EXPORT=qw(roll);

FILTER_ONLY
	code => sub {
		s{((?:\btt\d+\s+)?(?:\d+|\b)d\d+)}  
		# note use of \b.  We don't want to filter other expressions
		# that ending in 'd' and a number
		 {roll('$1')}g;                   
	}

__DATA__

=head1 NAME

Dice::Simpler - an even simpler interface to RPG style dice.

=head1 SYNOPSIS

	use Dice::Simpler;
	
	my $str= tt3 6d6;     # best 3 of 6 6-sided dice
	my $dex=     3d8;     # 3 8-sided dice
	my $cha=     4d4+1;   # 4 4-sided dice + 1

	print <<CHARACTER;
	Your new character has:
	  Strength:  $str
	  Dexterity: $dex
	  Charisma:  $cha
	===============
	CHARACTER
	print "You attack the Orc:\n";
	if (3d6 < $str) {
		print "You killed the Orc";
	} else {
		print "You hit the Orc but it glanced off his armour";
	}

=head1 DESCRIPTION

Uses L<Dice::Simple> and the very funky L<Filter::Simple> to allow you to use
the RPG style '3d6' syntax for dice rolling directly in Perl.  See the 
Dice::Simple documentation for more details.

=head1 AUTHOR, LICENSE

 Version: 0.01  8th Dec 2001
 Untested.  No warranty implied.
 May be distributed under the same terms as Perl itself.

 (c) hakim@earthling.net
 http://www.perlmonks.org     /msg osfameron

=head1 BUGS

=over 4

=item 1

(OPEN 2001/12/8) '3d6' notation isn't filtered in quotelikes like
double quoted strings.  But it *does* seem to be in <<heredocs.  Not sure why. B<Update:> but Damian Conway himself is aware of it, and it is on his looooong todo list, thanks!

=back

=cut

int(rand 6)+1;