{
    no strict;
    local $^W = undef;

    my @versions = ();
    foreach my $class ( sort keys %INC ) {

        $class =~ s/\.pm$// or next;
        $class =~ s/\//::/g;

        my $version = ${"$class\::CVS_VERSION"} || next;
        push @versions, "$class -> $version";
    }
}