package DiffractionPeak
@ISA = qw()

sub BEGIN

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetPeak
my ($this, $h, $k, $l, $d, $Q) = @_;
return;

sub Peak
my ($this) = @_;