File: Link.pm

package info (click to toggle)
pronto 2.4.0-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,112 kB
  • ctags: 488
  • sloc: perl: 22,159; makefile: 140; sh: 34; sql: 7
file content (14 lines) | stat: -rw-r--r-- 195 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
package Pronto::Link;
use strict;

sub load_url {
  my ($widget, $file) = @_;

  local *FILE;

  open(FILE, $file);
  $widget->insert(undef, undef, undef, join("", <FILE>));
  close(FILE);
}

1;