Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision aa7f51db

Von Sven Schöling vor fast 13 Jahren hinzugefügt

  • ID aa7f51db81934e47ff7bac0a15cef97572d4c6f2
  • Vorgänger abd4a0b0
  • Nachfolger 45c42be0

Kategorie bei Flash prüfen.

Unterschiede anzeigen:

SL/Helper/Flash.pm
7 7
our @EXPORT    = qw(flash flash_later);
8 8
our @EXPORT_OK = qw(render_flash);
9 9

  
10
my %valid_categories = (
11
  map({$_ => 'info'} qw(information message)),
12
  map({$_ => $_}     qw(info error warning)),
13
);
14

  
10 15
#
11 16
# public functions
12 17
#
......
29 34

  
30 35
sub _store_flash {
31 36
  my $store    = shift || { };
32
  my $category = shift;
33
  $category    = 'info' if $category eq 'information';
37
  my $category = _check_category(+shift);
34 38

  
35 39
  $store                ||= { };
36 40
  $store->{ $category } ||= [ ];
......
39 43
  return $store;
40 44
}
41 45

  
46
sub _check_category {
47
  my ($c) = @_;
48
  return $valid_categories{$c}
49
    || die 'invalid category for flash';
50
}
51

  
42 52
1;
43 53

  
44 54
__END__

Auch abrufbar als: Unified diff