package PointGroup; use Crystal::PointGroupObject; @ISA = qw(PointGroupObject); #公開したいサブルーチン @EXPORT = qw(); use strict; BEGIN { } #======================================================== # コンストラクタ、デストラクタ #======================================================== sub new { my ($module) = @_; my $this = {}; bless $this; return $this; } sub DESTROY { my $this = shift; } #======================================================== # 一般関数 #======================================================== 1;