our $pckg_vars = __PACKAGE__;
	sub new () {
		my $class=$_[0];
		my $s = {};      # base class starts/nothing
		$s->{$pckg_vars} = {};
		bless $s, ref($class) || $class;
		$s->_entries_init;
		return $s;
         }
sub ratings ([index,[rating])    #r/w accessor
sub filenames([index])           #r/o accessor
sub _add_entry(\$)               #adds entry of type File_Entry