Hyper-Developer
2 results

 view release on metacpan or  search on metacpan

lib/Hyper/Developer/Server.pm  view on Meta::CPAN 

    my $class       = "$arg_ref->{namespace}\::Control\::$arg_ref->{type}"
        . "\::$arg_ref->{service}\::"
        . ( substr $arg_ref->{type}, 0, 1 )
        . $arg_ref->{usecase};

    eval {
        my $svg = Hyper::Developer::Model::Viewer->new({
            for_class => $class,
        })->create_graph()->as_svg();
        print <<"EOT";
content-type:image/svg+xml

<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg xmlns="http://www.w3.org/2000/svg"
     xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:ev="http://www.w3.org/2001/xml-events"
     version="1.1" baseProfile="full" width="5000">$svg</svg>
EOT
    };

    return;
}

sub _show_index {
    my $self      = shift;
    my $config    = Hyper::Singleton::Context->singleton()->get_config();
    my $namespace = $config->get_namespace();
    my $base_path = $config->get_base_path();

    eval {
        # Child
        print "content-type:text/html; charset=utf-8\n\n";
        my @flow_controls;
        my @container_controls;
        find(
            sub {
                m{.ini\Z} or return;
                my ($type, $service, $last_part)
                    = (split m{/}, $File::Find::name)[-3..-1];
                my ($usecase) = $last_part =~ m{(?: F|C)([^\.]+)\.ini}xms;

                my %value_of = (

lib/Hyper/Developer/var/Hyper/Developer/Server.htc  view on Meta::CPAN 

<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" content="text/xhtml; charset=utf-8">
    <head>
        <title>Hyper Developer Server - Overview</title>
        <style type="text/css">
            body,td,th,a,p,.h { font-family: arial,sans-serif;      }
            html,body         { width: 100%; padding: 0; margin: 0; }
            body              { font-size: small;                   }
            td,th             { text-align: left;                   }
            td                { vertical-align: top;                }
        </style>
        <meta http-equiv="content-type" content="text/html; charset=utf-8" />
    </head>
    <body>
        <table style="width: 100%; border: 1px solid #000; padding: 0px; background: #696969; color: #f5f5f5;">
            <tr>
                <td style="font-size: 5em; width: 10px; vertical-align: middle;">
                    
                </td>
                <td style="font-size: 1.6em; font-weight: bold; vertical-align: middle;">
                    Hyper Developer<br />
                    Server



( run in 1.863 second using v1.01-cache-2.11-cpan-524268b4103 )