my $reader = Compress::DSRC::Archive->new;
my $seq = Compress::DSRC::FastqRecord->new;
while ($reader->next_seq($seq)) {
    # do something with $seq
}

##</code><code>##

my $reader = Compress::DSRC::Archive->new;
while (my $seq = $reader->next_seq) {
    # do something with $seq
}

##</code><code>##


#include "Globals.h"
#include "FastqRecord.h"
#include "FastqFile.h"
#include "DsrcModule.h"
#include "DsrcArchive.h"
#include "ns.h"

%module{Compress::DSRC};

%loadplugin{feature::default_xs_typemap};

%name{Compress::DSRC::FastqRecord} class FastqRecord {

    %name{new} FastqRecord();
    ~FastqRecord();

    std::string tag      %get %set;
    std::string sequence %get %set;
    std::string plus     %get %set;
    std::string quality  %get %set;

};

%name{Compress::DSRC::Archive} class DsrcArchive {

    %name{new} DsrcArchive();
    ~DsrcArchive();

	%name{start_decompress} void StartDecompress(std::string& filename_);
	%name{next_seq} bool ReadNextRecord(FastqRecord& rec_);
	%name{finish_decompress} void FinishDecompress();

    [..truncated...]

};