6 use Term::ANSIColor qw(:constants);
11 $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
13 die "Unable to find libraries\n" if !$libs and !-d $libs;
22 my $views = new Clearcase::Views;
24 my $nbr_views = $views->views;
25 my @view_list = $views->views;
27 display YELLOW . "Clearcase Views\n" . RESET;
29 display MAGENTA . "Number of views:\t\t" . RESET . $nbr_views;
30 display MAGENTA . "View list:\n" . RESET;
32 display "\t$_" foreach (@view_list);