package ExperiMorph;

sub import {

    my $filename = __FILE__ . '.dat';

    do ((defined $_[1]) ? $_[1] : $filename) or die "$! $filename $@";
}

sub analyze ($) {

    return ( (exists $morpho{$_[0]}) ? @{$morpho{$_[0]}} : ( ) );
}

1;
