#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use CGI::Carp qw(fatalsToBrowser);

use lib '../files/lib';
use Base::Page qw(page story);
use Util::StoryMagic::Collection qw(collection_magic);

my $magic = collection_magic;
page( 'code' => sub { story(*DATA, { 'line magic' => $magic }) });

__DATA__
This is my film and television B<tie-in collection>.
For books: SPAN<hardcovers|^hardcovers^>, SPAN<trade paperbacks|^trades^>, and SPAN<mass market paperbacks|^massmarkets^>.
For music: SPAN<CDs|^cds^>, SPAN<cassettes|^cassettes^>, SPAN<45s|^ffs^>, and SPAN<LPs|^lps^>.