package Monks;

use strict;
use warnings;

our $VERSION = '0.01';

use Monks::Data;

sub new { 
    my ($class, @args) = @_;
    bless { @args } => $class;
} 

sub is_furry {
    my ($self, $furry) = @_;
    grep { /$furry/ } @{Monks::Data::->get_furries};
}

sub find_fur_texture {
    my ($self, $fur) = @_;
    Monks::Data::->get_texture_for->{$fur};
}

1;