Parent Directory | Revision Log
include local copy of Continuity::Widget $ darcs show repo Type: darcs Format: darcs-1.0 Root: /rest/cvs/Continuity-Widget Pristine: PlainPristine "_darcs/pristine" Cache: thisrepo:/rest/cvs/Continuity-Widget Default Remote: http://thelackthereof.org/projects/perl/Continuity-Widget Num Patches: 29
1 | dpavlin | 69 | package Continuity::Widget::Style; |
2 | |||
3 | use Moose::Role; | ||
4 | |||
5 | has attribute => ( is => 'rw', isa => 'HashRef', default => {{}} ); | ||
6 | |||
7 | sub attr { | ||
8 | my ($self, $attr, $val) = @_; | ||
9 | $self->attribute->{$attr} = $val if $val; | ||
10 | return $self->attribute->{$attr} if $self->attribute->{$attr}; | ||
11 | } | ||
12 | |||
13 | 1; | ||
14 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |