package DBM::Deep::Engine::Sector::Unicode;

use 5.006_000;

use strict;
use warnings FATAL => 'all';
no warnings 'recursion';

use base qw( DBM::Deep::Engine::Sector::Scalar );

sub type { $_[0]{engine}->SIG_UNICODE }

sub _init {
    my $self = shift;
    utf8::encode( $self->{data} )
        if $] >= 5.008 && defined($self->{data});
    $self->SUPER::_init();
}

sub data {
    my $self = shift;
    my $data = $self->SUPER::data();
    utf8::decode( $data )
        if $] >= 5.008;
    return $data;
}

1;
__END__