lib/SWE/Lang.pm

package SWE::Lang;
use strict;
use warnings;
use Exporter::Lite;

our @EXPORT_OK = qw(@ContentMediaType %ContentMediaType);

our @ContentMediaType =
(
  {type => 'text/x-suikawiki', module => 'SWE::Lang::SWML',
   label => 'SWML'},
  {type => 'text/x.suikawiki.image', module => 'SWE::Lang::SWML'},
  {type => 'application/x.suikawiki.config'},
  {type => 'text/plain', label => 'Plain text'},
  {type => 'image/x-canvas-instructions+text',
   module => 'SWE::Lang::CanvasInstructions',
   label => 'Drawing'},
  {type => 'text/css', label => 'CSS'},
);
our %ContentMediaType = map { $_->{type} => $_ } @ContentMediaType;

1;
1	wakaba	1.1	package SWE::Lang;
2			use strict;
3			use warnings;
4			use Exporter::Lite;
5
6			our @EXPORT_OK = qw(@ContentMediaType %ContentMediaType);
7
8			our @ContentMediaType =
9			(
10			{type => 'text/x-suikawiki', module => 'SWE::Lang::SWML',
11			label => 'SWML'},
12			{type => 'text/x.suikawiki.image', module => 'SWE::Lang::SWML'},
13			{type => 'application/x.suikawiki.config'},
14			{type => 'text/plain', label => 'Plain text'},
15			{type => 'image/x-canvas-instructions+text',
16			module => 'SWE::Lang::CanvasInstructions',
17			label => 'Drawing'},
18			{type => 'text/css', label => 'CSS'},
19			);
20			our %ContentMediaType = map { $_->{type} => $_ } @ContentMediaType;
21
22			1;