sql::translator::producer::sqlserver(3pm) [debian man page]

SQL::Translator::Producer::SQLServer(3pm)		User Contributed Perl Documentation		 SQL::Translator::Producer::SQLServer(3pm)

NAME

       SQL::Translator::Producer::SQLServer - MS SQLServer producer for SQL::Translator

SYNOPSIS

	 use SQL::Translator;

	 my $t = SQL::Translator->new( parser => '...', producer => 'SQLServer' );
	 $t->translate;

DESCRIPTION

       This is currently a thin wrapper around the nextgen SQL::Translator::Generator::DDL::SQLServer DDL maker.

Extra Attributes
       field.list
	   List of values for an enum field.

TODO

	* !! Write some tests !!
	* Reserved words list needs updating to SQLServer.
	* Triggers, Procedures and Views DO NOT WORK

	   # Text of view is already a 'create view' statement so no need to
	   # be fancy
	   foreach ( $schema->get_views ) {
	       my $name = $_->name();
	       $output .= "

";
	       $output .= "--
-- View: $name
--

" unless $no_comments;
	       my $text = $_->sql();
	       $text =~ s/
//g;
	       $output .= "$text
GO
";
	   }

	   # Text of procedure already has the 'create procedure' stuff
	   # so there is no need to do anything fancy. However, we should
	   # think about doing fancy stuff with granting permissions and
	   # so on.
	   foreach ( $schema->get_procedures ) {
	       my $name = $_->name();
	       $output .= "

";
	       $output .= "--
-- Procedure: $name
--

" unless $no_comments;
	       my $text = $_->sql();
	     $text =~ s/
//g;
	       $output .= "$text
GO
";
	   }

SEE ALSO

       SQL::Translator

AUTHORS

       See the included AUTHORS file: http://search.cpan.org/dist/SQL-Translator/AUTHORS <http://search.cpan.org/dist/SQL-Translator/AUTHORS>

COPYRIGHT

       Copyright (c) 2012 the SQL::Translator "AUTHORS" as listed above.

LICENSE

       This code is free software and may be distributed under the same terms as Perl itself.

perl v5.14.2							    2012-05-10				 SQL::Translator::Producer::SQLServer(3pm)

SQL::Translator::Schema::Procedure(3pm) 		User Contributed Perl Documentation		   SQL::Translator::Schema::Procedure(3pm)

NAME

       SQL::Translator::Schema::Procedure - SQL::Translator procedure object

SYNOPSIS

	 use SQL::Translator::Schema::Procedure;
	 my $procedure	= SQL::Translator::Schema::Procedure->new(
	     name	=> 'foo',
	     sql	=> 'CREATE PROC foo AS SELECT * FROM bar',
	     parameters => 'foo,bar',
	     owner	=> 'nomar',
	     comments	=> 'blah blah blah',
	     schema	=> $schema,
	 );

DESCRIPTION

       "SQL::Translator::Schema::Procedure" is a class for dealing with stored procedures (and possibly other pieces of nameable SQL code?).

METHODS

   new
       Object constructor.

	 my $schema = SQL::Translator::Schema::Procedure->new;

   parameters
       Gets and set the parameters of the stored procedure.

	 $procedure->parameters('id');
	 $procedure->parameters('id', 'name');
	 $procedure->parameters( 'id, name' );
	 $procedure->parameters( [ 'id', 'name' ] );
	 $procedure->parameters( qw[ id name ] );

	 my @parameters = $procedure->parameters;

   name
       Get or set the procedure's name.

	 $procedure->name('foo');
	 my $name = $procedure->name;

   sql
       Get or set the procedure's SQL.

	 $procedure->sql('select * from foo');
	 my $sql = $procedure->sql;

   order
       Get or set the order of the procedure.

	 $procedure->order( 3 );
	 my $order = $procedure->order;

   owner
       Get or set the owner of the procedure.

	 $procedure->owner('nomar');
	 my $sql = $procedure->owner;

   comments
       Get or set the comments on a procedure.

	 $procedure->comments('foo');
	 $procedure->comments('bar');
	 print join( ', ', $procedure->comments ); # prints "foo, bar"

   schema
       Get or set the procedures's schema object.

	 $procedure->schema( $schema );
	 my $schema = $procedure->schema;

   equals
       Determines if this procedure is the same as another

	 my $isIdentical = $procedure1->equals( $procedure2 );

AUTHORS

       Ken Youens-Clark <kclark@cshl.org>, Paul Harrington <Paul-Harrington@deshaw.com>.

perl v5.14.2							    2012-01-18				   SQL::Translator::Schema::Procedure(3pm)