File Coverage

blib/lib/GenOO/Data/File/FASTQ/Record.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	11	12	91.6

# POD documentation - main docs before the code

=head1 NAME

GenOO::Data::File::FASTQ::Record - Object representing a record of a fastq file

=head1 SYNOPSIS

    # Object representing a record of a fastq file

    # To initialize
    my $fastq_record = GenOO::Data::File::FASTQ::Record->new({
        name      => undef,    #required
        sequence  => undef,    #required
        quality   => undef,    #required
        extra     => undef,
    });


=head1 DESCRIPTION

    This object represents a record of a fastq file and offers methods for accessing the different attributes.

=head1 EXAMPLES

    # Return record name
    my $name = $fastq_record->name;

=cut

# Let the code begin...

package GenOO::Data::File::FASTQ::Record;
$GenOO::Data::File::FASTQ::Record::VERSION = '1.5.1';
use Moose;
use namespace::autoclean;

has 'name'     => (isa => 'Str', is => 'rw', required => 1);
has 'sequence' => (isa => 'Str', is => 'rw', required => 1);
has 'quality'  => (isa => 'Str', is => 'rw', required => 1);
has 'extra'    => (is => 'rw');

#######################################################################
########################   Interface Methods   ########################
#######################################################################
sub to_string {
	my ($self) = @_;

	return join("\n",(
		'@'.$self->name,
		$self->sequence,
		'+',
		$self->quality,
	));
}

#######################################################################
############################   Finalize   #############################
#######################################################################
__PACKAGE__->meta->make_immutable;

1;