Alzabo-Display-SWF
1 match

 view release on metacpan or  search on metacpan

etc/create.pl  view on Meta::CPAN 

my ($x, $y) = $s->dim;

open HTML, ">$name.html" or die;
print HTML <<END;
<html>
<head>
<title>$name :: Data Model</title>
</head>
<body>
<p>
<EMBED type="application/x-shockwave-flash" src="$name.swf"
       width="100%" height="@{[ int(141*$y/$x) ]}%"/>
</p>
</body>
</html>
END
close HTML
;



( run in 0.541 second using v1.01-cache-2.11-cpan-71847e10f99 )