The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub _unpack_JPEG { my ($self, $stream, $len) = @_; my ($data1, $data2);

    while (!$data2 and $len > 0) {
        my $size = ($len > 1000) ? 1000 : $len;
        $data1 = $stream->get_string($size);
        $len -= $size;
        if ($data1 =~/\xff$/ and $len>0) {
            $data1 .= $stream->get_string(1);
            $len--;
        }
        ($data1, $data2) = split /\xff\xd9/, $data1;
        $self->BitmapJPEGEncoding->add($data1);
    }
    $self->BitmapJPEGEncoding->add("\xff\xd9");

    $self->BitmapJPEGImage($data2);
    while ($len > 0) {
        my $size = ($len > 1000) ? 1000 : $len;
        $data1 = $stream->get_string($size);
        $len -= $size;
        $self->BitmapJPEGImage->add($data1);
    }
}

sub unpack { my ($self, $stream, $flags)=@_;

    $self->FontID   ->unpack($stream)    if ($flags & 8);
    $self->TextColor->unpack($stream)    if ($flags & 4);
    $self->XOffset($stream->get_SI16)    if ($flags & 1);
    $self->YOffset($stream->get_SI16)    if ($flags & 2);
    $self->TextHeight($stream->get_UI16) if ($flags & 8);
}

NAME

SWF::Element - Classes of SWF tags and elements. See Element.pod for further information.

COPYRIGHT

Copyright 2000 Yasuhiro Sasama (ySas), <ysas@nmt.ne.jp>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.