The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WebService::WebSequenceDiagrams - Simple API for WebSequenceDiagrams

SYNOPSIS

  use WebService::WebSequenceDiagrams;

DESCRIPTION

WebService::WebSequenceDiagrams is an API for WebSequecenDiagrams.

see detail => http://www.websequencediagrams.com/

METHODS

new([%args])
  my %args = (
          style     => [ 'default' | 'rose' | 'qsd' | 'napkin' | 'mscgen' | 
                    'omegapple' | 'modern-blue' | 'earth' | 'roundgreen' ],      # default is 'default'
          paginate  => [ 0 | 1 ],                                                # default is 1 
          paper     => [ 'letter' | 'a4' | '11x17' ],                            # default is 'letter'
          landscape => [ 0 | 1 ],                                                # default is 1
          format    => [ 'png' | 'pdf' ]                                         # default is 'png'
  );

  my $wsd = WebService::WebSequenceDiagrams->new(%args);
draw(%message, %outfile, [%args])
  my %args = (
          style     => [ 'default' | 'rose' | 'qsd' | 'napkin' | 'mscgen' | 
                    'omegapple' | 'modern-blue' | 'earth' | 'roundgreen' ],      # default is 'default'
          paginate  => [ 0 | 1 ],                                                # default is 1 
          paper     => [ 'letter' | 'a4' | '11x17' ],                            # default is 'letter'
          landscape => [ 0 | 1 ],                                                # default is 1
          format    => [ 'png' | 'pdf' ]                                         # default is 'png'
  );

  my $wsd->draw(
          message => $message,
          outfile => "/path/to/save",           
      %args,
  );

message methods

These methods create message text programmably.

see detail => http://www.websequencediagrams.com/examples.html

signal(%args)
  $wsd->signal(
          from => 'Alice',
          to   => 'Bob',
          text => 'Authentication Request',
          line => 'solid' | 'broken',   # default is 'solid'
  );
signal_to_self(%args)
  $wsd->signal_to_self(
          itself  => 'Alice',
          text    => 'This is a signal to self.\nIt also demonstrates \nmultiline \ntext.',
          line    => 'solid' | 'broken',   # default is "solid"
  );
participant(%args)
  $wsd->participant(
      name => 'Alice',
          as   => 'A',  # optionally
  );
alt(%args)
  $wsd->alt(
      text => 'successful case',
  );
else(%args)
  $wsd->else(
      text => 'successful case',
  );
opt(%args)
  $wsd->opt(
      text => 'opt',
  );
loop(%args)
  $wsd->loop(
      text => '1000 times',
  );
end()
note(%args)
  $wsd->note(
          position => 'left_of' | 'right_of' | 'over',
          name     => 'Alice' | ['Alice', 'Bob'],
          text     => 'This is displayed left of Alice',        
  );
activate($name)
deactivate($name)
destroy($name)

AUTHOR

Takeshi Miki <miki@cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO