view release on metacpan or  search on metacpan

t/canned/docs/quad.pm  view on Meta::CPAN

#!/usr/bin/perl -W
package AI::MicroStructure::quad;
use strict;
use AI::MicroStructure::List;
our @ISA = qw( AI::MicroStructure::List );
our @List = qw( @{$structures{$structure}} );
__PACKAGE__->init();
1;

__DATA__
# names
area
artefact
artifact
construction
entity
object
physical_entity
physical_object
quad
quadrangle
structure
unit
whole