[catagits/Reaction.git] / lib / Reaction / UI / Widget / Image.pm

package Reaction::UI::Widget::Image;

use Reaction::UI::WidgetClass;
use namespace::clean -except => [ qw(meta) ];

before fragment widget {
  my $vp = $_{viewport};
  my $attrs = {
    src => $vp->uri,
    ($vp->has_width ? (width => $vp->width) : ()),
    ($vp->has_height ? (height => $vp->height) : ()),
  };
  arg img_attrs => attrs( $attrs );
};

__PACKAGE__->meta->make_immutable;

1;

__END__;
Commit	Line	Data
6c3805b0	1	package Reaction::UI::Widget::Image;
	2
	3	use Reaction::UI::WidgetClass;
	4	use namespace::clean -except => [ qw(meta) ];
	5
	6	before fragment widget {
	7	my $vp = $_{viewport};
	8	my $attrs = {
2aa8d0f2	9	src => $vp->uri,
6c3805b0	10	($vp->has_width ? (width => $vp->width) : ()),
	11	($vp->has_height ? (height => $vp->height) : ()),
	12	};
	13	arg img_attrs => attrs( $attrs );
	14	};
	15
	16	__PACKAGE__->meta->make_immutable;
	17
	18	1;
	19
	20	__END__;