package AtomSite; use Crystal::AtomSiteObject; @ISA = qw(AtomSiteObject); #公開したいサブルーチン @EXPORT = qw(); use strict; #use Crystal::MyUtility; BEGIN { } sub new { my ($module) = @_; my $this = {}; bless $this; return $this; } sub DESTROY { my $this = shift; } 1;