Skip Menu |
 

This queue is for tickets about the SQL-Translator CPAN distribution.

Report information
The Basics
Id: 76490
Status: open
Priority: 0/
Queue: SQL-Translator

People
Owner: Nobody in particular
Requestors: sebastian [...] podjasek.pl
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Small feature request (SQL::Translator::Producer::GraphViz)
Date: Wed, 11 Apr 2012 13:40:03 +0200
To: bug-SQL-Translator [...] rt.cpan.org
From: Sebastian Podjasek <sebastian [...] podjasek.pl>
Download (untitled) / with headers
text/plain 731b
It will be nice if in addition to 'skip_tables_like' you could also do 'skip_fkeys_like' to skip some relations that you don't need at the moment. It could be done as simple as this: --- GraphViz.pm 2011-05-04 18:06:57.000000000 +0200 +++ GraphViz.pm.my 2012-04-11 13:11:58.000000000 +0200 @@ -565,6 +565,7 @@ my $fk_table = $c->reference_table or next; for my $field_name ( $c->fields ) { + next if defined $args->{skip_fkeys_like} and $field_name =~ $args->{skip_fkeys_like}; for my $fk_field ( $c->reference_fields ) { next unless defined $schema->get_table( $fk_table ); KR, Sebastian -- Sebastian Podjasek
Download (untitled) / with headers
text/plain 869b
On Wed Apr 11 07:40:32 2012, Uazz wrote: Show quoted text
> It will be nice if in addition to 'skip_tables_like' you could also do > 'skip_fkeys_like' to skip some relations that you don't need at the > moment. It could be done as simple as this: > > --- GraphViz.pm 2011-05-04 18:06:57.000000000 +0200 > +++ GraphViz.pm.my 2012-04-11 13:11:58.000000000 +0200 > @@ -565,6 +565,7 @@ > my $fk_table = $c->reference_table or next; > > for my $field_name ( $c->fields ) { > + next if defined $args->{skip_fkeys_like} and > $field_name =~ $args->{skip_fkeys_like}; > for my $fk_field ( $c->reference_fields ) { > next unless defined $schema->get_table( > $fk_table ); > > > > KR, > Sebastian > > >
Can you please resubmit this as a larger patch with documentation? Thanks!


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.