Frey/Web/Flowplayer.pm

package Frey::Web::Flowplayer;
use Moose;

=head1 SEE ALSO

L<http://flowplayer.org/documentation/installation.html>

=cut

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

has skeleton => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'skeleton',
);

sub as_markup {
        my ($self) = @_;

        warn $self->skeleton;

        qq|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
 
<!-- include the only required JavaScript file --> 
<script src="http://static.flowplayer.org/js/flowplayer-3.0.1.min.js"></script>     
 
<!--  
   Setup player with standard HTML syntax 
      * movie file is specified in "href" attribute  
      * player dimensions are defined with CSS   
--> 
<a  
    href="http://blip.tv/file/get/KimAronson-TwentySeconds4461.flv"  
    style="display:block;width:425px;height:300px;"  
    id="player"> 
</a> 
 
<!-- this script block will install Flowplayer inside previous anchor tag --> 
<script language="JavaScript"> 
    flowplayer("player", "http://static.flowplayer.org/swf/flowplayer-3.0.1.swf"); 
</script>
        |;

}

1;
1	dpavlin	809	package Frey::Web::Flowplayer;
2			use Moose;
3
4			=head1 SEE ALSO
5
6			L<http://flowplayer.org/documentation/installation.html>
7
8			=cut
9
10			extends 'Frey';
11			with 'Frey::Web';
12			#with 'Frey::Storage';
13
14			has skeleton => (
15			is => 'rw',
16			isa => 'Str',
17			required => 1,
18			default => 'skeleton',
19			);
20
21			sub as_markup {
22			my ($self) = @_;
23
24			warn $self->skeleton;
25
26			qq\|
27			<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
28			"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
29
30			<!-- include the only required JavaScript file -->
31			<script src="http://static.flowplayer.org/js/flowplayer-3.0.1.min.js"></script>
32
33			<!--
34			Setup player with standard HTML syntax
35			* movie file is specified in "href" attribute
36			* player dimensions are defined with CSS
37			-->
38			<a
39			href="http://blip.tv/file/get/KimAronson-TwentySeconds4461.flv"
40			style="display:block;width:425px;height:300px;"
41			id="player">
42			</a>
43
44			<!-- this script block will install Flowplayer inside previous anchor tag -->
45			<script language="JavaScript">
46			flowplayer("player", "http://static.flowplayer.org/swf/flowplayer-3.0.1.swf");
47			</script>
48			\|;
49
50			}
51
52			1;