package Monks;

use strict;
use warnings;

use Monks::Data;

BEGIN {
	use Exporter;
	our $VERSION	= 0.01;
	our @ISA	= qw(Exporter);
}

sub version { $Monks::VERSION }

sub new {
	my $class = shift;

	my $self = { @_ };
	bless $self, $class;

	return $self;
};

sub check_fluffy {
	my $self = shift;

	return 'Yes' if (grep /$_[0]/, @Monks::Data::Fluffy);
	return 'No';
}

sub find_fur_texture {
	my $self = shift;

	return "$Monks::Data::Textures{$_[0]}" if (defined $Monks::Data::Textures{$_[0]});
}

1;