package TreebankViewer::DataSource; use strict; use warnings; use base qw/ TreebankViewer /; sub new { return 1; } 1;