MVCの練習 perl---index.cgi----- #!/usr/local/bin/perl use strict; use Controller; Controller->new->dispatch('index');# Sledge風にしてみました。 ----Controller.pm ----- package Controller; use strict; use CGI; use Model; use View; use Error qw(:try); sub new { my $class = shift; my $self = {}; bless $self, $class; } sub dispatch { my $self = shift; my $page = shift||'index'; print "Content-Type: text/html;\n\n"; try { my
