57 lines
821 B
Perl
57 lines
821 B
Perl
|
package Classy::Event::AsideBlock;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use namespace::autoclean;
|
||
|
|
|
||
|
|
our $VERSION = '0.10';
|
||
|
|
|
||
|
|
use Markdent::Types;
|
||
|
|
|
||
|
|
use Moose;
|
||
|
|
use MooseX::StrictConstructor;
|
||
|
|
|
||
|
|
has inner => (
|
||
|
|
is => 'ro',
|
||
|
|
isa => t('Str'),
|
||
|
|
required => 1,
|
||
|
|
);
|
||
|
|
|
||
|
|
has class => (
|
||
|
|
is => 'ro',
|
||
|
|
isa => t('Str'),
|
||
|
|
predicate => 'has_class',
|
||
|
|
);
|
||
|
|
|
||
|
|
with 'Markdent::Role::Event' => { event_class => __PACKAGE__ };
|
||
|
|
|
||
|
|
__PACKAGE__->meta->make_immutable;
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
__END__
|
||
|
|
|
||
|
|
=pod
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
This class represents an aside in the article.
|
||
|
|
|
||
|
|
=head1 ATTRIBUTES
|
||
|
|
|
||
|
|
This class has the following attributes:
|
||
|
|
|
||
|
|
=head2 inner
|
||
|
|
|
||
|
|
The inner markdown text of the block.
|
||
|
|
|
||
|
|
=head2 type
|
||
|
|
|
||
|
|
Either C<aside> or C<alert>, depending on the "severity" of the aside.
|
||
|
|
|
||
|
|
=head1 ROLES
|
||
|
|
|
||
|
|
This class does the L<Markdent::Role::Event> role.
|
||
|
|
|
||
|
|
=cut
|