SWF::Generator - swf(adobe flash file) generator for perl5

SWF-Generator documentation Contained in the SWF-Generator distribution.

Index

Code Index:

NAME

Top

SWF::Generator - swf(adobe flash file) generator for perl5

SYNOPSIS

Top

  use SWF::Generator;

  my $swfgen = SWF::Generator->new;
  my $swf = $swfgen->process('foo.xml');

  # setting swfmill and tt options
  my $swfgen = SWF::Generator->new(
                   swfmill_option => [qw/-e cp932/],
                   tt_option      => { INCLUDE_PATH => ['/tmp/'] },
               );
  my $swf = $swfgen->process('foo.xml');

  # setting vars
  my $xml = ".....<tags>[% buz %]</tags>";
  my $swfgen = SWF::Generator->new;
  my $swf = $swfgen->process(\$xml, { buz => 'bar' });

DESCRIPTION

Top

SWF::Generator is swf generator for perl5. this module use swfmill.

1) make xml > swfmill swf2xml foo.swf > foo.xml

2) edit xml template > vim foo.xml <tags>xxxxx</tags> => <tags>[% name %]</tags>

3) run SWF::Generator

my $sg = SWF::Generator->new; print $sg->process('foo.xml', { name => 'bar' });

# => output swf binary.

AUTHOR

Top

kan.fushihara {at} gmail.com

SEE ALSO

Top

Template, http://swfmill.org/

LICENSE

Top

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

SWF-Generator documentation Contained in the SWF-Generator distribution. 
package SWF::Generator;
use strict;
use warnings;
our $VERSION = '0.011';

use Template;
use IPC::Run qw/run/;
use Encode;

sub new {
    my ( $class, %opt ) = @_;

    my $tmpl = Template->new($opt{tt_option}||{});

    return bless {
        _template       => $tmpl,
        _swfmill_option => $opt{swfmill_option} || [],
    }, $class;
}

sub process {
    my ($self, $input, $vars) = @_;

    $self->{_template}->process($input, $vars, \my $xml) or die $self->{_template}->error();
    $xml = encode('utf-8', $xml) if utf8::is_utf8($xml);

    my $err;
    run ['swfmill', @{$self->{_swfmill_option}}, qw/xml2swf stdin/], \$xml, \my $swf, \$err or die $err;

    return $swf;
}

1;
__END__