File Coverage

blib/lib/Devel/IPerl/Display/IFrame.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	29	41.3

$Devel::IPerl::Display::IFrame::VERSION = '0.012';
use strict;
use warnings;

use Moo;
with qw(Devel::IPerl::Display::Role::Displayable Devel::IPerl::Display::Role::Source);

has [ qw[width height] ] => ( is => 'rw', predicate => 1 );

	my ($self) = @_;
	return unless $self->uri;
	my $html = <<"HTML";
	<iframe
	    @{[ $self->has_width  ? (qq|width="@{[$self->width]}"|)  : ""  ]}
	    @{[ $self->has_height ? (qq|height="@{[$self->height]}"|): "" ]}
	    src="@{[$self->uri]}"
	    frameborder="0"
	    allowfullscreen
	></iframe>
HTML
	return {
		"text/html" => $html,
	};
}

1;


=pod

=encoding UTF-8

=head1 NAME

Devel::IPerl::Display::IFrame

=head1 VERSION

version 0.012

=head1 AUTHOR

Zakariyya Mughal <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Zakariyya Mughal.

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

=cut