+sub flash {
+ my ($self, $type, @messages) = @_;
+
+ my $message = join ' ', grep { $_ } @messages;
+
+ if (!$self->_flash->{$type}) {
+ $self->_flash->{$type} = [ 'flash', $type, $message ];
+ push @{ $self->_actions }, $self->_flash->{$type};
+ } else {
+ $self->_flash->{$type}->[-1] .= ' ' . $message;
+ }
+
+ return $self;
+}
+
+sub error {
+ my ($self, @messages) = @_;
+
+ $self->_error(join ' ', grep { $_ } ($self->_error, @messages));
+
+ return $self;
+}
+