SL/Layout/ActionBar/Link.pm

   1 package SL::Layout::ActionBar::Link;
   2
   3 use strict;
   4 use parent qw(SL::Layout::ActionBar::Action);
   5
   6 sub from_params {
   7   my ($class, $data) = @_;
   8
   9   my ($text, %params) = @$data;
  10   return SL::Layout::ActionBar::Link->new(text => $text, params => \%params);
  11 }
  12
  13 sub render {
  14   my ($self) = @_;
  15
  16   return $self->p->html_tag(
  17     'a', $self->text,
  18     %{ $self->params // {} },
  19     id    => $self->id,
  20     class => 'layout-actionbar-link',
  21   );
  22 }
  23
  24 1;