use strict;
use warnings FATAL => qw( all );
our $VERSION = 0.0206;
sub decode {
my ($class, $stream) = @_;
my $fields = [
preamble => ['object', 'Finnigan::CASInfoPreamble'],
text => ['varstr', 'PascalStringWin32'],
];
my $self = Finnigan::Decoder->read($stream, $fields);
return bless $self, $class;
}
sub preamble {
my ( $self ) = @_;
$self->{data}->{preamble}->{value};
}
1;
__END__
=head1 NAME
Finnigan::CASInfo -- a decoder for autosampler data
=head1 SYNOPSIS
use Finnigan;
my $cas_info = Finnigan::CASInfo->decode(\*INPUT);
$cas_info->dump;
=head1 DESCRIPTION
CASInfo is a structure with uncertain purpose that contains a binary
preamble with autosampler co-ordinates (CASInfoPreamble), followed by
a text string. The text string is apparently a comment; in one
instance where it was non-null, it contained this text: C<384 Well Plate>.
=head2 METHODS
=over 4
=item decode($stream)
The constructor method
=item preamble
Get the Finnigan::CASInfoPreamble object
=back
=head1 SEE ALSO
Finnigan::CASInfoPreamble
L<uf-casinfo>
=head1 AUTHOR
Gene Selkov, E<lt>selkovjr@gmail.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2010 by Gene Selkov
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.
=cut