X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FSchema%2Ftestdb.pl;h=a65db0fdf332c9fb9c76d16ec5fc8ddcaa995f24;hb=a8b66abc9cf90221ebcd9be535eda47f6b37a6f8;hp=c608f459d750a295742fb48cecf5436d631f86c3;hpb=f54428abf9cc7d7e5604745335694eaf558f6820;p=dbsrgits%2FDBIx-Class.git diff --git a/examples/Schema/testdb.pl b/examples/Schema/testdb.pl index c608f45..a65db0f 100644 --- a/examples/Schema/testdb.pl +++ b/examples/Schema/testdb.pl @@ -55,7 +55,6 @@ sub get_tracks_by_artist { print "\n"; } - sub get_cd_by_track { my $tracktitle = shift; print "get_cd_by_track($tracktitle):\n"; @@ -88,8 +87,6 @@ sub get_cds_by_artist { print "\n"; } - - sub get_artist_by_track { my $tracktitle = shift; print "get_artist_by_track($tracktitle):\n"; @@ -107,7 +104,6 @@ sub get_artist_by_track { print $artist->name . "\n\n"; } - sub get_artist_by_cd { my $cdtitle = shift; print "get_artist_by_cd($cdtitle):\n";