use Moose;
use MyTypes qw(
       my_date_time
);
has 'rawDataBlock' => (
      is  => 'rw',
      isa => 'Str',
      trigger => \&_unpack_data,
);

has 'lastPlay' => (
    is =>'rw', 
    isa =>'Int',
    writer => '_set_lastPlay',
);
has 'ChanNum'  => (
    is=>'rw',
    isa=>'Int',
    writer => '_set_ChanNum',
);
has 'startTime' => (
    is => 'rw',
    isa => my_date_time,
    writer => '_set_startTime',
    coerce => 1,
);
has 'fileName' => (
    is => 'rw',
    isa => 'Str',
    writer => '_set_fileName',
);

sub _unpack_data{
    my ( $self, $new_data ) = @_;
    my @results = unpack( $my_template, $new_data);
    $self->_set_lastPlay( $results[0] );
    $self->_set_ChanNum( $results[1] );
    $self->_set_startTime( $results[2] );
    $self->_set_fileName( $results[3] );
}